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CONF IGUTL ~ SYSGEN UTILITIES FOR CONFIGURE PROCESS J “SEP-19 746:56 yaxeves Macro V04-00 Page 1 | 
vou-002 wSEn=1983 i 244:54 tBoors. SRCJCONF IGSW.MAR; 1 . (1) 
00000001 CONF IGSW=1 ; SET SWITCH TO GENERATE CODE USED BY 


: CONFIGURE PROCESS 
IF NDF , CONF I1GSW 
LE SYSGEN = SYSGEN UTILITY AND PARAMETER FILE EDITOR 
LE CONFIGUTL = SYSGEN UTILITIES FOR CONFIGURE PROCESS 
IDENT 'V04-002" 


MASBABAAAASAASAAALALASAAALALALALASLASESLALASASAAAAARARA REAR RRR R SARA SERRA RRA A LES SD GS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A i es AND MAY BE USED AND vie 
CCORDANCE W THE TER UCH 


ou" 


°* ” 
°® * 
°* * 
** * 
°® t 
°* * 
°* * 
of t 
°* R 7 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP UF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
°* * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* SHOULD NOT * 
°* * 
°* we 
°® a 
°* * 
** s 
°* * 
** * 


AND SH BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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0000 POPP SESASCSASATCAS ASTI CATES ESSEC CCST C CECE CC CECE CSCC CECE CCC ECCS ESE S ESE 
0000 
0000 p++ 
0000 : : =a 
0000 3 Facility: System generation and initialization 
0000 : Abstract: SYSGEN is the main routine to provide all SYSBOOT parameter 
444 2 alteration commands in an online environment. 
44 : Environment: 
9000 t Author: RICHARD I. HUSTVEDT, Creation date: 4-MAY-1978 
609 ; MODIFIED BY: 
0000 ; v04=002 WHMO011 Bill Matthews 14-Sep-1984 
44 3 Changed the defaults for the MSCP command. 
$009 : v04-001 —_—s Bill Matthews 04-Sep-1984 
0000 3 nged 10 PRIORITY default for the MSCP command and 
448 : on low loading of the MSCP server multiple times. 

000 : v03-023 WHM0009 Bill Matthew 23-Jul-1984 

44 3 Changed defaults for the MSCP command. 
9000 ; v03-022 wHM0008 Bill Matthews 20-Apr 


So 


Removed WRITE CURRENT code that wrote the ar ee parameters 
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yoee009 12-86-1984 $3:08;79 {80 OOTS.SRCISYSGEN.MAR; 3 ” dy 
$ § ; to SYS.EXE. 
09 3 : v03-021 wHM0007 Bill Matthews 04-Apr-1984 
: Added support to write current to write to a seperate 
B00 60 ; default system parameter file. 
oS 6} ; Added support to use file to accept long ascii sysgen parameters 
$60 8 : V03-020 wHM0006 Bill Matthews 14-Mar-1984 
000 64 ; Modify SGNSGET_DEVICE to take out the I/0 database MUTEX and 
8008 o : raise IPL before calling LOCSSEARCHALL. 
9000 67 : v03-019 wHM0005 Bill Matthews 13-Mar-1984 
00 68 ; Move definition of BoOscL _LOAD_ARGS from $Y SB00CMD to 
464 $° 3 this module. 
0000 71: v03-018 ACGO399 Andrew C. Goldstein 10-Mar-1984 0:36 
0000 i ; Change check for S$S$_NODEVAVL to SS$_NOSUCHDEV due to 
8008 ? : rewrite of IOCSSEARCADEV. 
0000 75; V03-016 WHMO0004 Bill Matthews 23-Feb-1984 
4464 6 ; Added support for loading and starting the MSCP server. 
0000 78: V03-015 wHM0003 Bill Matthews 04-Feb-1984 
0000 79 ; Added support for ACF$B_COMBO_VECTOR “OFFSET to clean up support 
44 + ; of combo style devices. 
0000 Be : v03-014 TMKO001 Todd M. Katz 31-Jan-1984 
44 o ; Change a BSBW to a JSB. 
0000 * 85; v03-013 wHmoo02 Bill Matt 13-Dec-1983 
0000 86 ; Fixed several calls to Singer DEVICE to pass the unit number 
0000 87 ; to be antowet ay B not the maximum units. 
0000 88 ; Added su peers the new CONNECT command qualifiers 
464 3 ; /CSR_OFFSET a TVECTOR OFFSET. 
0000 (91: v03-012 JLV0312 Jake VanNoy 26-0c t-1983 
44 3 : Fix bug for microVAX that allows nexus 0 in CONNECT. 
0000 (94: V03-011 wHMO001 Bill Matthews 09-Dec-1983 
4 32 : Changed some bsbw's to jsb's 
0000 97 : v03-010 wMc0003 Wayne Cardoza 09-Aug-1983 
000 98 ; Fix loadable code error handling. 
$88 100 : USEACT IVE should be in configutl. 
0000 101: v03-009 wmco002 Wayne Cardoza 29-Jul-1983 
44 198 : More features for code loading. 
0000 104: v03-008 wMc0001 Wayne Cardoza 27-Jul-1983 
44 132 : Support general code loading. 
444 109 ; v03-007 MSHO006 ann Hinden 24-Jun-1983 
4 138 3 Use SBOOCMDDEF Pred te of SBOODEF. 
$00 110 ; v03-006 MSH0005 Maryann Hinden 04-May-1983 
it 3 : Changes to support CONFIGURE process. 
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yee tid 12-86-1984 6:0 39 teoors sre SYSGEN.MAR; 3 . (1) 
00 113 ; v03-005 MSHO004 Maryann Hinden 13-May-1983 
09 ie : Change some BSBW PUTERROR instructions to JSB instead. 
18 § V03-004 MSHO003 Maryann Hinden 31-Jan-1983 
4 1 : _ Add support for cluster device names. 
$00 119 3 v03-003 TCM0001 Icudy C. Matthews 8-Nov-1982 
0000 120; Use new ADPSL_AVECTOR field in calculation of ACF$W_AVECTOR, 
0008 ! 1; instead of calculating it from the adapter'’s TR number. 
0000 1 : ; v03-002 MSHO002 Maryann Hinden 22-0¢ t-1982 
464 ! : 3 Fix broken BSBW. 
0000 126; v03-001 MSHO001 Maryann Hinden 30-Sep-1982 
; eck for Le = 0. 
0000 127 Check for DDBSL_UCB = 0 
0000 128 ;-- 
0000 180 
44 13) : Include files: 
0000 138 SACFDEF ; Define autoconfiguration block 
0000 134 SADPDEF ; Define adapter control block 
0000 135 SBOOCMDDEF ; Define SYSGEN command options 
0000 136 SCLIDEF ; Define CLI codes and values 
0000 137 SCRBDEF ; Define CRB offsets 
0000 138 SDDBDEF ; Define DDB offsets 
0000 139 SDYNDEF : Block types 
0000 140 SHLPDEF ; Define HELP symbols 
0000 141 SIDBDEF :; Define IDB offsets 
0000 106 SIHDDEF : Image header offsets 
0000 14 SIPLDEF : Define IPLs 
0000 144 SJPIDEF 3: SGETJPI definitions 
0000 145 SLBRDEF ; Librarian symbols 
0000 146 SOPCDEF : Operator message definitions 
0000 147 SPRDEF ; Define processor registers 
0000 148 SPRMDEF ; Parameter descriptor definitions 
0000 149 SBDEF : SCS system block definitions 
0000 150 SSHRDEF 3; Error codes 
0000 151 SSLVDEF 3; Loadable code header 
0000 13 SDEF : Define system status values 
0000 = 15 $SYSGMSGDEF : sysgen messages 
4 154 TPADEF ; TPARSE definitions 
00 155 SUCBDEF ; Define UCB offsets 
44 136 SVECDEF ; Define VEC offsets 
000 158; 
4 Fe ; Equated Symbols: 
00000000 0000 161° CR=13 ; Character value for carriage return 
sais 000 19¢ FF=12 ; Character value for form fee 
4 000000A 0000 16 LF=10 ; Character value for Line feed 
: 00001000 0000 164 UBA_IOBASE=8*512 ; Offset from UBA configuration register 
o6 193 ; to base of 1/0 page 
00 189 3; Own Storage 
0000 80 189 -PSECT $$$$000,NOEXE ,NOWRT 3; PSECT to mark lower address 
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0000 ; 


0000 


00000200 
00002200 
00002400 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
FFFFFFFE 
FFFFFFFF 
FFFFFFFF 
00000001 
FFFFFFFF 
FFFFFFFE 
FFFFFFFF 
FFFFFFFE 
FFFFFFFF 
00000000 


0000000 


00000000 
00000000 
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BOOSLOLIM:: 
-PSECT ____227,WR 
BOOSHILIM:: 
»PSECT 
BOOSAB_PATCH:: 
-BLK 
BOOSAB_PRMBUF :: 
-BLK 
ee 
ACFSGL_DDB: : 


9 

: 

4 

5 

6 512 
5 

0 

ON 
ACFSGL_UCB: : 
5 

5 

8 

9 

0 

1 

: 

4 

5 

7 


512*16 
512 


- Lon 
ACFSGL =108:: 
" 
ACFSGL 26h: 
ACFSGL “ListBBe: 
ACFSGL_DPT:: 
. Long 
ACFSGL_SB:: 


oo oc oOo So O&O 


BOOSGL “conBO CSR_OFFSET: 
9 BOOSGL “COMADE: 

01 BOOSGL -CONCREG: 

$1 BOOSGL nage gh $3 

05 BOOSGL_CONNUMU: : 
Q7 BOOSGL_ “conve: 
09 BOOSGL_ “COMMURV: 
V BOOSGL -CSMAUNIT: 33 


13 BOOSGL “COMDEV: : 
14 N 


oes © 
= 2 — = = 


§ A Mies 

* BOOSGL ~cONUNITS 3 

B00$GQ _cONSYSID: 
ONG 


1 
1 
1 
1 
“LONG 
BOOSGL_CONCRB: : 
ONG 
BOOSGL_CONFLAGS: : 
» LONG 
6 BOOSGL_NEXTSTR: : 


PIPIPIPIPIPINMIPIAIMIPINGNIPINPIPIPINPINIPINIPININININ IN) cd sd st sd st sd tt tk tk kt 
—DOOCooooo 
Tr 7 6 
= — 


“oo CO: 0: 


NONPAGED_DATA 


- LON 
BOOSGL_COMBO_VECTOR_OFFSET:: 


14-SEP 
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; Marker definition 
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Sete Se Se Se Se Se Se Se Fe Se Ge Se Se Se Ge Ge Se Ge Ge Ge Se Be Se Ge Se Se Se Se Se See 


PSECT to mark upper address Limit 


rd,wrt,noexe, quad 


pny Patch area 
ne 

Retake er buffer 

A generous buffer 
Buffer for code loader 


; Offset to vector from start of combo 
; device's vectors 

; Offset to CSR from start of combo 

; device's CSR 

; Adapter TR number 

; Nul 
; Control register 


value 


Null value 

Controller unit 

Null value 

Number of Units to cont igure 
Default value is 1 unit 
Vector offset 

Null value 

Number of vectors 

Null value. 

Adapter unit 

Null value 

Device name string address 
Null value 

Driver name string address 
Null value 

oe Be units 


System ID 
quadword 


CRB address 
Flags 
Next string location 


_— 
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00000000 245 -LONG 0 ; ; 
4 BOOSGL_SELECT:: ; Adcress of select List 
00000000 246 -LONG 0 ; 
4 BOOSAL_CLIBLK:: ; CLI call back block 


bat ; Get command call back block 
RQTYPE= CLISK GETCMD 
BOO$GQ_ CRDE SCs =BOOSAL _CLIBLKFCLIS$SW_RQSIZ 


BOOSGT_P 
<CRO<LFO>RSYSGEN> % 


4 . 
0000246¢ 248 é 
ate 
BOOSAL ACF :: 3; Auto-configuration et 


00 20 20 3& 4E 45 47 53 59 53 0A OD rt 
00002484 rt 


| 

| 

| ; Command descriptor address 
j 

00000000° 2484 


Prompt string 


«BL ACFSC_LENGTH ; Allocate space for it 
BOOSGQ_LIMITS:: ; High and low address Limits for lockdown 
«LONG BOOSLOLIM ; Lower address bound 
FFFFFFFF* 2488 BOOSHILIM-1 


~ LONG : 
BOOSGQ_RETADR:: ; Return address receiver 


7 
8 
9 
0 
35 
35 
36 
7 
i 
9 
sz) 
00000000 00000000 24BC stg -LONG 0,0 : 
2404 245 BOOSGL_RETSAVE:: ; Saved co-routine return address 
00000000 sete 244 el 0 ; i 
4C8 245 FACNAMED:: ; Facility name descriptor 
eae wt Be 2408 246 t FACNAMSZ ,F ACNAME 
4E 45 47 53 59 53 2400 247 FACNAME:.ASCII /SYSGEN/ 
00000006 2406 sis FACNAMSZ=. SF ACNA ME ; Length of facility name 
24D6 49 CONSNAME : ; Console block storage 
41 53 43 4% $obe 250 eASCIC /CSA/ ; device name 
24DA 251 BOOSGT_OPNAME: : Console terminal device name 
41 50 4F p90" oe 252 UASCIC. /OPA/ : 
24DE 253 BOOSGT_CVNAME: 3; Name of RLO2 driver 
52 45 56 49 52 44 56 43 +f sees 254 NASCIC. /CVDRIVER/ 
24E7 255 BOOSGT_DXNAME: ; Name of floppy driver 
52 45 56 49 52 44 58 44 +f scet 256 "ASUIC. /DXDRIVER/ 
24F0 257 BOOSGT_DDNAME: : Name of TUS8 driver 
52 45 56 49 52 44 44 44 00° 24F0 258 SASCIC. /DDDRIVER/ 
08 24F0 
24F9 =. 259 : 
24F9 260 BOOSGL oF ILEADOR: ; : File spec address 
00000000 <¢4F9 261 -LON a 
sere $66 BOOSGB_ FILELEN:: : File spec length 
00 24FD $6 -BYTE ; 
GFE 64 
99009000 Sere 65 BOOSGL_PARINUSE:: -LONG 0 3 
74 6E 65 72 72 oF 20s 66 BOOSGT" CURRENT: : eASCIC /Current/ 
65 76 69 74 63 41 00° 208 267 BOOSGT_ACTIVE:: eASCIC /Active/ 
74 6C 75 61 66 65 44 Bo" 31 268 BOOSGT_DEFAULT:: ASCIC /Default/ 
00002559 218 $8 BOOSGT_FILE:: -BLKB 864 
559 71 HELP_FILE: ; Help Library file name 
45 48 24 53 59 53 9900256 561 es wed 559 72 -ASCID /SYSSHELP:SYSGEN.HLB/ 
4C 48 2€ 4E 45 47 53 5 Q 2$f 
00000001 2574 273 HELP_FLAG: . long hl p$m_prompt 


| 
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/v04-002 14-SEP BOOTS.SRCJSYSGEN.MAR; 3 (1) 
| 00002580'010E0000' 378 if HELP_DESC: eascid // ; Filled in as pointer 
580 76 VALID_PAR_FILE: 3; Valid parameter file fl 
| “erat: $80 7 SAVE_DOT; a 3 "a Rar ve USE oo 
: Save do ro iles 
00000000 2584 379 "LONG 0 ; - pees: 
588 80 FULL _NAME PTR: : Full device name 
00000000 4 Ht . CONG “0 
| ne 58 : MSCP initialization routine default argument List 
58C¢ 385 MSCP_ARG_LIST: 
00000008 258C 6 «LONG 8 ; Number of arguments 
00000001 $200 287 -LONG 1 ; Function code(load and start server) 
00008000 2594 288 -LONG 32768 : Default buffer size 
00000004 2598 289 -LONG 4 ; Default number of receive credits for each host 
OOOOOO0F 259C 290 -LONG 15 ; Default number of hosts supported 
00000014 25A0 291 -LONG 20 ; Default time out 
00000004 25A4 344 -LONG 4 ; Default priority 
00001000 25A8 29 LONG 4096 ; Default for minimum qualifier 
00004000 seat 294 -LONG 16384 ; sores for maximum qualifier 
0000258C 2580 295 -BLKL 3 . Space for new args 
00000030 seat 34 MSCP_ARG_LIST_SIZE = .=-MSCP_ARG_LIS 
258C 298 BOOSGL et ARGS: : Argument List block loadable code init 
O0002S5EC 25B8C 344 BLRB MSCP -ARG_LIST_SIZE 3 routine 
see 308 
50 43 53 4D +e s2ec 302 MSCP_NAME: eASCIC /MSCP/ ;MSCP server name 
25F1 303 
sort Soe ; AUTO ALL /LOG storage 
55 21 43 41 21 20 000025F9° an . sor) 306 CTRSTR_AUTOLOG: eascid / !AC!UW/ 
57 55 21 2C 00002608'010E0000° 2600 44 CTRSTR_AUTOLOG_UNIT: eascid /,!UW/ 
00000000 sone 08 Outlen_unit: . long 0° 
00000000 2610 309 Outlen? . lon 0 
00002628 2614 10 Boo$gt_save_devname: -blkb = 20 
00002630' Bon Seo. soee 11 outbuf? ascid // 
630 318 outbuf_str: -blkb 100 
3694 315 : Send operator message data 
ey 16 OPERGETJPI: 2 SGETJPI item List 
0004 694 17 ~ WORD 4 ; Buffer Length 
ea 696 18 WORD JPI$_ PID ; Process ID code 
00002680" 2698 19 ADDRESS OPERMSGPID : Buf fer address 
00000000 269C 20 - LONG 0 ; Don't return Length 
00000 V4 3 LONG 0 3 List terminator 
6A4 é OPERMSGVEC: ; SPUTMSG message vector 
0003 26A4 4 . WOR 3 3; Argument count 
OOOF 26A 5 -WORD “B1111 ; Default message flags 
6A § OPERMSGID: 
00000000 26A8 § : Message ID 
6AC 8 OPERMSGF AO: 


own 
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s++ te 
Functional description: ua Maga 
BOOSUSEFILE reads the specified file in response to the USE | 
command and merges ail of the values specified in that file into 
the working copy of the parameter values. This is accomplished 
= Famcepstin. up each value specified and merging the associated 
value. 


Cath tng 1 ee ; 
ALL arglist,BOOSUSEFILE 


Input Parameters: ‘ ; 
TPASL_TOKENCNT(AP) = Length of file name string 


1773501388 23:46:56 yea/yes Regce v04-00 Page 7 
14-SEP-1984 16:09:11 (CBOOTS.SRCJSYSGEN.MAR; 3 (1) 
001 26AC 9 «WORD 1 ; FAO argument count 
000 26A 0 «WORD 0 ; No new message flags 
68 1 OPERMSGPID: ; PID of this process 
00000000 2680 § mt 0 
6384 OPERMSGNAM: ; File specification 
00002688' o8e ¢ - ADDRESS OPERNAMDE SC 
68 6 OPERNAMDESC: 
00000000 00000000 ? 5 -LONG 0,0 
6 9 OPERMSG: ; Message descriptor 
00000000 0 - LONG 0 
000026C(8° 26 1 ADDRESS OPERMSGBUF 
3 : OPERMSGBUF : ; Message buffer 
00000103 26 4 -LONG OPC$_RQ_RQST!<OPCSM_NM_CENTRL@8> ; Message type and target 
00000000 5 -LONG 0 ; No reply message 
6 OPERMSGTXT: ; Message text 
60002700 , ~BL 256 
3 Ts NDF , CONF 1GSW ; SYSGEN-specific code 
[SBTTL BOOSUSEFILE - Use parameter file 
4 
5 
6 
7 
8 
9 
0 
4 


COOOCOCOCOCCOCOCCOCOCOOCCOCOCCOCOCCOCSCOCOCOCOOO0OONWOWe fOOOMWCo# 
SINNED ADD AA AAO TTT UT EBS BS BS BB EE ENA 


AWNWAAIAN AIAN AIAAAANAANANANNNANAWNAAA AANA NAAAAAW 


D 5 TPASL_TOKENPTR(AP) = Address fo file name string 
D 6 ; Output Parameters: 
: , RO - Completion status code 
oe 
s/p 1 .PSECT PAGED_CODE rd,nowrt,exe,iong 
1 73 -Entry BOOSUSEFILE, “M<R2,R3,R4,R5,R6,R7,RB,RI> ; Entry mask 
7D 75 
7D 76 BBSS #EXESV_WRITESYSPARAMS,- ; Use a file => write current needed 
700 di ne G*EXESGL_DYNAMIC_FLAGS,1$; 
700 7 MOVL BOOSGL_DOT,.L*SAVE_DOT 3; Save dot ; . 
700 «©3380 MOVAB TPASL_TOKENCNT(AP),R7 ; Set address of file name descriptor 
700 81 BSBW BOOSF TLOPEN 3; Open specified file 
700 Hf BLBS 20 : Continue if success 
Ms rs 10$ +t hs #1,R0 ; Force success 
700 385 208 MOVAB BO0SAB_PRMBUF ,R6 : Set address of parameter buffer 


(——— 
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7D0 86 MOVL #16,R9 3 Set size of buffer 
| 7D 87 gs BOO$READF ILE : Read file content into parameter buffer 
7D 8 LB RO,10 3; Exit if error 
7D 89 MOVA BOOSAB_P : Init pointer to peroneter buffer 
700 390 MOVCS #32, (RB), RERESGT. STARTUP ; Set startup command file name 
700 91 ADDL #32,R8 3 _and advance buffer pointe 
7D0 36 CLRL VAL {D_ PAR FILE : Initialize valid d paraneter “tile flag 
7D0 935 30S: TSTL (RB) 3; Check for end of 
700 94 EQL DONE 3; Branch if yes 
27d0 95 MOVZBL (R8),TPASL_TOKENCNT(AP) ; Set token count for search 
2700 396 OVAB  1(R85,TPASC_TOKENPTR(AP): And address of string 
5700 97 ADDL #16,R8 3; Advance to value 
700 398 MOVL  (RBS+,TPASL_NUMBER(AP) : Set number 
2700 99 CALLG (AP),L“*BOOSSEARCH 3 Search tor parameter 
2700 400 BLBC RO, 30$ 3; Next parameter if not found 
2700 = 401 MOVL #1,VALID_PAR_FILE ; Indicate valid parameter file 
2700 188 MOVL TPASL PARAM(AP) ,R4 ; Get a Pe to the parameter descripttor 
2700 = 40 BBC #PRNSY ASCII, PRMSL_FLAGS(R4),40$; Branch if not an ascii parameter 
2700 §=— 404 MOVAL <=(R8),TPASL_TOKENPTR(AP);: Get a pointer to the parameter value 
2700 «= 405 MOVZBL eaeee *SIZE(R4) RO ; Get parameter size in bits 
2700 406 ASHL #-3 RO 3; Set parameter size 
2700 407 MOVZBL RO, {Page _TOKENCNT(AP) =; 
2700 408 ADDL #3,R0 3; Round size up to the next longword 
2700 409 BICL #3,R0 : 
2700 410 ADDL2 = RO,R8 3; Advance past value 
2700 Ss 411 CALLG (AP), W*BOOSSETASCII : Set the value of the parameter 
2700 tig BRW ; Continue with the next parameter 
2700» «§=413 40$: CALLG (AP),L“BOOSSETVALUE 3; Set value of parameter 
2700) = 414 BRwW 3 : Continue with next parameter 
2700 415 DONE: BSBW Corte bak Fi. 3; Close the file 
2700 «= 416 BLBS VALID_PAR_FILE,10$ ; If LBS, valid parameter file 
2700) «417 MOVL #SYSGS_ NGTPARAM. RO ; Set error 
2700 «§=418 BRB 208% : Branch 
2700 3 «=419 108: 
2700 420; : 
gfe $s} : Set file name in BOOSGL_PARINUSE 
2700 8423 MOVAL BOOSGT FILE,R8 : Set address of String 
2700 §=424 MOVL R8,BOOSGL PAR INUSE ; Set address 
2700 8425 MOVZBL B00$GB_FICELEN, (R8) 3 Set count 
2700 426 Moves” (RB) @BOO$GL_FILEADDR,- 
2700 «= 427 RBS ; Move string 
2700 «§=428 
5708 £3? MOVZWL #SS$ NORMAL ,RO ; Return success 
700 430 208: MOVL L*SAVE_DOT,BOOSGL_DOT =; Restore dot 
$300 432 -ENDC : End of SYSGEN-specific code 
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-SBTTL BOOSUSEACT - Use active parameters 
Functional description: 
his routine copies the parameter values from the running 
system to the working copy of the parameter values. 
Calling sequence: 
CALLS #0,BOOSUSEACT 
Input onere 


Output Parameters 
RO - Coaptetion status code 


Entry BOOSUSEACT,*M<R2,R3,R4,R5> 


MOVC3 W#EXESC_SYSPARS?Z,- Move parameters 
MMGSA_SYSPARAM, EXESA_ SYSPARAM 
MOVAL BOScT A ACTIVE,- 
BOOSGL— “PARINUSE ; Set parameter in use 
et #1,R0 ~ ; Return success 


os NDF , CONF IGSW 3 SYSGEN-specific code 
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a~- 
NO 


: Notify operator of WRITE ACTIVE 


Get base of parameter blocks 
Raise IPL to prevent being unscheduled 
(Assumes pages are locked in W.S.) 


Get address of parameter 
Branch if this is not a 
Get position of parameter 


Extract parameter value 
Get address of working buffer 


Point to next paramter block 


-SBTTL BOOSWRTACT - Write parameters to system 
: Functional Description: 
$ This routine writes the parameters in the working pereneter 
; buffer to the system's parameter area. Only dynamic 
; parameters are copied. 
: Calling se Sequence 
3 #0, ;BOOSWRTACT 
: Input Parameters: 
: None 
: Output Parameters: 
: - Completion status code 
«PSECT NONPAGED_CODE rd,nowrt,exe,long 
«Entry BOOSWRTACT, “M<> 
SCMKRNL_S B*10$, (AP) ; Do it in kernel mode 
BLBC “RO,1$ ; If LBC, error 
JSB BOOSSENDOP ER 
LONG SYSG$_WRITEACT 
BLBS : If LBS, success 
1$: JSB R058 ; Report error 
MOVL #1,R0 3; Force success 
5$: RET 
10$: ~ WORD “M<R2,R3,R4,R5> 
MOVAB 4 pops PRMBLK RS : 
DSBINT PIPL CHED : 
ASSUME PRMSL_ADDR EQ 0 
20$: MOVL PRMSL_ADDR(R5) ,R3 : 
BEQL 40$ 3; Reached the en 
BBC | #PRM$V_D ; 
PRMSL “FLAGSRSS; 30$ : dynamic parameter 
MOVZBL PRR $B POS(RS) Ri 
EXTZV $B, SIZE (RS), (R3), Rb 
MOVAB CERESA.S YSPARAM,RO ; 
SUBL ; Get parameter offset 
INSV R2,R1,PRM$B_SIZE(R5),- ; Store in system 
L*MMG$A_SYSPARAM(R3) 
30$: ADDL #PRMSC_LENGTH,RS : 
BRB 208 ; Repeat 
3; Copy dynamic flags from default flags to RO 
40$: BICL3 #*C<PRMSM_DYNFLAGS> 
MMGSA A, SYSPARAMS <EXESGL _DEFFLAGS~EXESA_SYSPARAM> ,RO 
BICL #PRMSA_DYNFLAGS,=- s €h 
EXESGL- “FUKGS 


ear dynamic flags in real flags 
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BISL RO,EXESGL_FLAGS ; Set dynamic flags in real flags 
ENBINT 3; Lower IPL 
eee #1,R0 ; Set success 
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-SBTTL BOOSWRICUR - Write Current Parameters 
S Functtenet Description: 
This routine writes the parameters from the working parameter 
buffer to the system parameter file on disk. They will take effect the 
next time the system is booted. 


andes Pe Sequence 
#0, ;BOOSWRTCUR 


Input paraneters: 


Ce Parameters: 
- Completion status code 


-PSECT PAGED_CODE rd,nowrt,exe,long 
Entry BOOSWRICUR, “M<R2,R3,R4,R5,R6,R7,R8,R9> 
BBCC #EXESV_WRITESYSPARAMS, Don't do WRITE CURRENT again in startup 
G*EXESGL DYNAMIC FLAGS, 10S; 
10$: MOVAB BOOSGT SYSPARNAME ,RO ; Get address of system .PAR file name 
a (RO)+, TPASL a yb ad Set up for call to BOOSWRISYSPARF ILE 


CALLG (AP) O BOOSURTSYSPARF ILE: Call the routine to write out the file 


BLBC RO, 26$ : Branch if error 
BSBW BOOSSENDOPER 3 Notify operator of WRITE CURRENT 
«LONG SYSG$_WRITECUR 
BLBS r :; If LBS, success 
0$:  BSBW PUTERROR : Report error 


OS: MOVL #1,R0 Return success 
RET 


SVP BB BS BS BEE EAI npornonerononorn) cu 
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ree 28 -SBTTL BOOSSENDOPER - Output facility error message to operator 
7EB 60 ; Functional Description: 
ree $) 3 BOOSSENDOPER outputs an error message to the operator. 
7EB 86 s eonhone Se Sequence 
7EB 64 ; BOOSSENDOPER 
ree 22 ; -LONG <msg-id> 
7EB 567 BOOSSENDOPER: : 
7E8 68 MOVL a(SP) ,OPERMSGID ; Put message ID in vector 
7EB 269 ADDL2 #4, (SP) : Advance return address 
7EB 0 $GETJPI_S ITMLST=OPERGETJPI ; Get ng 1 
7EB 571 BLBC RO, 3; If LBC, 
7EB 276 MOVL #3, OPERMSGVEC 3; Assume WRITE ACTIVE 
7EB 57 MOVL #1, OPERMSGF AO 
7EB 574 CLRL OPERMSGNAM 
7EB 575 CMPL #SYSG$_WRITECUR,,OPERMSGID 3; WRITE CURRENT ? 
7EB «576 BNEQ 5$ 3s If » no 
27—EB 577 INCL OPERMSGVEC ; Set up WRITE CURRENT 
2e7EB 578 NCL OPERMSGF AO 
27EB 579 MOVAB prt OPERMSGNAM . 
27EB 580 MOVZBL RIO_INPNAM +NAMSB_ RSL,OPERNAMDESC; Build descriptor 
27EB 581 MOV R10_ INPNAM+NAMSL RSA, OPERNAMDESC+4 
. 27EB 286 5$: SPUTMSG_S'- ; Get and format message 
gies 58 MSGVEC=OPERMSGVEC, 
7EB 584 ACTRTIN=666$ 
sfee 585 BLBC RO,10$ :; If LBC, error 
7EB 586 SSNDOPR_S MSGBUF =OPERMSG 
7EB 587 BLBS RO,20$ : If LBS, success 
7EB 588 10$: BSBW PUTERROR 3; Report error 
27EB 589 MOVL #1,R0 3 Force success 
27EB 590 208: 
SB BB us, 
7EB 298 ~ WORD “M<R2,R3,R4,R5> 
27EB 8594 MOvVa a4 (APs, r6 . string descriptor 
27EB «8595 ADDL3 #OPCS$L_MS_TEXT,RO OPERMSG; “Store total operator message size 
27EB «5596 MOVCS RO, (R1),OPERMSGIXT 3; Copy text to operator message buffer 
sve 597 CLAL RO ; Prevent message output to SYSSOUTPUT 
ya em 
27EB 600 ~ENDC 3: End of SYSGEN-specific code 
| 


~~ 
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Pee 606 : -SBTTL BOOSCONFIGALL = Auto-configure all adapters 
7EB 604 ; Functional poset pt tens 
7EB 605 ; BOOSCONFIGALL is called to implement the ‘‘AUTOCONFIGURE ALL*’ 
7EB on6 : command. ALL standard devices supported by VAX/VMS will be 
7EB «607 ; located and connected for use with any necessary drivers being 
7EB 608 ; loaded. 
7EB 609 ; 
7EB 610; egies Sequence: 
ree el) 3 ALL ARGLIST,BOOSCONF IGALL 
7EB ig 3; Output peregeterss 
7EB 614; RO = Completion status code 
sfEB 615 ;-- 
7EB 616 
mag 8s eit -PSECT NONPAGED_CODE rd,nowrt,exe,long 
OFFC 444 oi} «Entry BOOSCONFIGALL, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> ; Entry mask 
08 0O000000"EF O0000000'8F £1 0002 621 BBC #EXESV_NOAUTOCNF ,EXESGL_DEFFLAGS,5$; do we allow auto configure 
50 007C8002 8F 00 443 6 ¢ MOVL #SYSG$_NOAUTOCNF ,RO :Give them a no autoconfigure error 
04 oo1e e ? RET 3 and return 
FFE7" 30 0016 625 5$ BSBW BOOSLOCK_GEN ; Lock SYSGEN database 
07 50 €8 0019 626 BLBS RO,7$ ; If no error, continue 
Q0000000°'EF 16 O01C 627 JSB PUTERROR 
0 0098 | 639 sei 
FFDA’ 30 0023 $30 7$ BSBwW IOCSAUTORESET ; Reset controller characters for device 
0026 631 3 names 
5B D4 0026 $36 CLRL R11 : Indicate no ADP address yet 
5B OD 0028 633 108: PUSHL R11 ; Set as argument 
OOOO00B2"EF 01 FB to 634 CALLS #1,NEXTADP 3; Get next ADP address 
29 50 €9 0031 635 BLBC RO,CONFIG_EXIT ; Branch if error (NOPRIV) 
58 51 00 0034 636 MOVL R1,R11 3; Check return status 
10 18 0037 637 BGEQ 29$ ; Branch if done 
5B DD 0039 638 PUSHL R11 ; Set as ADP argument 
0103"CF 01 FB 0038 639 CALLS #1,W*CONFIGADP : Configure the entire adapter 
—€5 50 +=€8 Boe8 640 BLBS 0$ 3; Continue if no error 
Q0000000°EF 16 0043 641 JSB PUTERROR : Report error 
50 01 00 SRer o 20$: MOVL #1,R0 3; Set success 
09 00000000'EF 0c E1 004C 644 BBC #BOOCMD$V_AUTOLOG,L“*BOOSGL_CMDOPT,CONFIG_EXIT ; Branch if not /LOG 
00002614 'EF iy aN 645 CLRL &OOS$GT SAVE _DEVNAME : ear name : 
01A9 0 BoA $66 BSBW AUTOLOG 3; Output Last Line if there is one 
Baap 648 CONFIG_EXIT: 
50 43 05D 64 PUSH RO 3; Save status 
FF9E® 30 44 650 BSBW BOOSUNLOCK_GEN ; Unlock SYSGEN database 
$6 50 EB Boe 651 BLBS ; If no error, continue 
00000000°EF 16 06 63¢ JSB PUTERROR : Give error message 
50 8—ED0 0068 6535 35$: POPL RO 3; Restore status 
Pe a ee : 
OF FC Oo, $28 Entry BOOSCONFIGONE, “M<R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11> ; Entry mask 
FF8C® 30 $071 658 BSBW BOOSLOCK_GEN ; Lock SYSGEN database 


ee 
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07 50 i 074 659 BLBS RO,5$ ; If no error, continue 
O0000000'EF 16 Or? 660 JSB PUTERROR : Give error message 
0 bore be: , 
FF7F* 30 4 $0 5$: BSBW IOCSAUTORESET 3; Reset controller characters for device 
0 664 3; device names , 
1C AC 60D «0081 665 PUSHL TPASL_NUMBER(AP) ; Set TR number of adapter 
DA‘ AF 0° FB 8 4 006 CALLS #1,B*COCADP 3; Locate adapter control block 
D250 €9 0088 66 BLBC RO, CONFIG_EXIT ; Branch if error (NOPRIV) 
51 op 0088 668 PUSHL Ri 3; Set as argument to CONF IGADP 
0D 13 O008D 669 Q 10$ 3; Done if no adapter 
O3°AF 9} Fe OO er 670 CALLS #1,B*CONFIGADP 3; Configure adapter 
0650 € 93 671 BLBS R $ 3; Continue if no error 
Q0000000'EF 16 0096 67¢ JS PUTERROR : Give error status 
50 01 DO O09C 675 10$: MOVL . ; Set success for perse 
B6 00000000'EF 0c E1 QO9F 674 BBC #BOOCMD$SV_AUTOLOG,L“BOOSGL_CMDOPT,CONFIG_EXIT ; Branch if not /LOG 
woveests Ee es QOA7 675 CLRL BOOSGT SAVE _DEVNAME ; Tlear name ’ ; 
0156 0 OOAD 676 BSBW AUTOLO ; Output last Line if there is one 
AB ii 4 44 20$: BRB CONF IG_EXIT H 
Mae 679 NEXTADP: ; Return next ADP address in RO 
0000 0082 680 -WORD 0 3 Null entry mask 
00B4 681 SCMEXEC_S B*10$, (AP) ; Call real routine in exec mode 
04 00C0 ret RET $ 
00C1 68 
0000 00C1 684 10$: -WORD 0 : Null entry mask 
51 04 AC 00 O00C3 685 MOVL 4(AP),R1 ; Get current address 
06 13 OOC7 686 BEQL 208 ; 0 => start of List 
51 04 Al pO 00C9 687 MOVL ADPSL_LINK(R1),R1 : Flink onward 
07 +11 «#OOCD 688 BR : 
51 OQO000000'EF DO OOCF 689 20$: MOVL I1OCS$SGL_ADPLIST,R1 ; Return head of List 
50 01 00 0006 690 30$: MOVL #1,R0 
04 00D9 91 RET : 
OODA 69 
OODA 693 LOCADP: ; Return address of ADP for TR number 
0000 OODA 694 -WORD 0 3 . 
O0DC 695 SCMEXEC_S B*5$, (AP) :; Call routine in exec mode 
04 OOE8 696 RET : 
00E9 697 
0000 O0E9 698 5$ .WOR 0 ; Null entry mask 
51 FFFFFFFC‘EF 9€ st 4 699 MOVAB IOCSGL_ADPLIST-ADPSL_LINK,R1 ; Set starting address 
51 04 A1 D0 OOF 700 10$: MOVL ADPSL_CINK(R1),R1 ; Flink onward 
07 13 OOF6 701 BEQL 20$ ; Done if at end 
OC Al 04 A 1 Bere rte CMP 4(AP) ,ADP$W_TR(R1) : Is this the specified TR? 
F 2 FD 67 BNEQ 10$ 3; No, try another 
50 01 DO OOFF 704 20$: MOVL #1,R0 
04 198 3 RET 3 
OOF C 03 4 -Entry CONFIGADP, “M<R2,R3,R4,R5,R6,R7>; Entry mask 
QO0024C4°EF D4 0105 109 CLRL’ BOOSGL _RETSAVE ; Zep return address for initial call 
10 OOOOOOOO'EF 06 €E1 Ha 710 BBC #BOOCMDSV_SELECT,L“BOOSGL CMDOPT,10$ ; Mutually exclusive = test 
08 00000000" EF 07 E1 0113 711 BBC #BOOCMDSV~EXCLUDE ,L*BOOSGC _CMDOPT,10$°; to make sure one bit clear 
50  007C808A 8F 0 if ar MOVL #SYSG$_CORF QUAL ,RO ; Conflicting qualifiers 
1 714 
O171°CF 6C FA a3 715 10$: CALLG (AP),W*50$ : Call configure one device 
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09 50 €8 0128 71 BLBS RO,20$ 3; Branch if not done with this adapter 
50 24 #1 128 oS CMPW #368. NOPRIV.RO ; Was there a privilege error ' 
3 3 1 at BEQL 15$ ; Yes, branch 
50 «(01 4 1 71 MOVL #1,R0 3; Set success 
4 0 Z if 9 15$: RET 3 and return 
55 O000248C'EF 9E : ; f § 20$ MOVAB BOOSAL_ACF,RS5 ; Set address of arguments describing device 
1C AS) = B4 0 B 724 CLRW ACF $W_MAXUNITS(R5) 3; Always use driver specified max units 
56 00002460'EF 00 1 § 725 MOVL b BOOSGL SELECT RG ; Get sointer to select list 
06 13 014 726 BEQL 5$ : Branch if null 
903! 30 Ree 727 BSBW sfiect 3: Check select/exclude string 
D6 50 =—E9 Bien : 8 BLBC RO,10$ ; Branch if device is not to be configured 
1108 AS 03 €0 014D 730 35$: BBS #ACFSV_NOLOAD_DB,ACF$B_AFLAG<R5) 385 : Branch if not loading databas 
09 00000000'EF 0 fl 0152731 BBC #BOOCMBSV_AUTOLOG,L*BOOSGL_CMDOPT,38$°; Branch if not logging 
QOA9 0 O15A £36 BSBW AUTOLOG : Branch to output log 
03 50 3 015D 73 BLBS RO, 38$ : Branch if no error 
FE9D' 30 0160 134 BSBW = PUTERROR : Give error message 
OOOO'CF 65 FA 0163 £736 388: CALLG (R5),W*IOGENSLOADER ; Load database and driver if necessary 
B8 50 8 0168 737 BLBS RO,1 ; Branch if no error 
FE92* 30 0168 738 BSBW PUTERROR ; Give error message 
FFB2 1 O1E 739 BRW 10$ : continue loop 
0171 740 
0000 0171 #741 50S: -WORD 0 g i 
0173 rg SCMKRNL_S B*55$, (AP) ; Call auto configure in kernel mode 
04 O17F 74 RET 3 
0180 744 
OFFC 0180 745 55$: WORD “M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11> s 
50 O00024C4"EF DO 0182 746 MOVL  BOOSGL_RETSAVE-RO ; Get Saved return address 
07 2 0189 747 BNEQ 60$ ; Branch if one present 
50 QO000000°EF 9E 0188 748 MOVAB IOCSAUTOCONFIG,RO 3 Else use main entry point 
50 D 0192 749 60S: PUSHL RO 3; Stack call back address 
58 04 AC 00 0194 #£«750 MOVL 4 (AP) RB ; Get address of ADP 
56 68 00 0198 751 MOVL ADP$L_CSR(R8B) ,R6 : Get Configuration register address 
57 O0000248C'EF 9E 0198 £36 MOVA BOOSAC_ACF ,R7 ; Address o configura ion control block 
BIA 75 SETIPL #31 ; Disable interrupts 
9—E 16 OIA 754 SB a(SP)+ ; Call Auto cont "ourtet ten code 
01A7 = =755 SETIPL # : Enable interrupts 
000024(4'EF 3 DO O1AA 756 OVL (SP) + ,BOCOSGL_RETSAVE ; Save return 
06 5 —E8 0181 757 BLBS : Continue if another device 
Q000246C4"EF 4 0184 138 CLRL  BOOSGL_RETSAVE : Else clear return 
OD 0B A? ‘03 1 O1BA 760 70$: BBC #ACFSV_NOLOAD_DB,ACFSB_AFLAG(R7) ,80$ ; Branch if loading database 
7E 12 a7 3C O1BF 761 MOVZWL ACF$W_CUNIT(R?),-(SP) ~ ; Get unit number 
14 A7 D 01C3 166 PUSHL ACFS$L_DEVNAME(R/) ; Get device name 
0108 0 01C6 76 BSBW SGNSGET_DEVICE_LOCK_IODB; Get device database 
SE 08 CO 0109 764 ADDL2 #8,SP ; Clear stack 
4 O1CC 765 B08: RET 3; And return 
50 01 C O1CD 766 90$: MOVZ2WL #1,RO0 3; Set success status 
04 H+ 6 RET : and return 
101 769 ; SELECT = decide whether current device name is one of those either 
193 aa ; specified in /SELECT or /EXCLUDE 
1)1 772 ; Returns: RO = 1 #£==> configure device 
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101 773; RO =0 #£==> don't configure device 
1D1 4774; . 
1D1 775 
1D1 £06 SELECT 
57 14 AS p0 101 777 108: OVL ACFSL_DEVNAME(R5) ,R7 3; Get pointer to device name 
54 «8B A 0105 4 MOVZBL (R6)+>R4 3; Get length of select entry 
1 17 See OU BEQL 208 z; End of list, no gate 
54 8 91 QO1DA 780 CMPB (R7)+,R4 3; Compare with device entry 
26 19 O1DD 781 BLSS 15$ 3; Branch if select Longer than device 
67 66 4 29 O1DF 4 t CMPC3 = R4, (RO), (R7) ; Do we have a match? 
13 13 O183 78 BEQL «=s«40$ ; Yes, check serect or EXCLUDE 
56 54 CO O1E5 784 15$ ADDL R4,R6 3; Advance to next entry in select List 
—7 ‘11 1E6 , 3 BRB o$ : And try again 
50 D4 OIEA 787 208: CLRL RO ; Assume don't configure 
03 00000000'EF 07 @#2€1 OT1EC 788 BBC #BOOCMDSV_EXCLUDE ,BOOSGL_ ‘cMDOPT, 30$ ; Branch if SELECT 
50 01 DO O1F4 789 MOVL #1,R0 7 EXCLUDE - contigure device 
05 aire 790 30$: RSB 
50. D4 O1F8 Ag 40$: CLRL RO ume don't configure 
03 OO000000'"EF O07 EO OFA 79 BBS #BOOCMD$V_EXCLUDE, BOOsGL “chboer 50$ ; Branch if EXCLUDE 
50 01 DO 0202 794 MOVL #1,R0 ECT - configure device 
05 0205 795 50$: RSB 


poe 
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6 444 ~SBTTL AUTOLOG = AUTO ALL /LOG formating 
06 799 AUTOLOG:: 
55 0000248C'EF 43 06 B00 MOVAB BOOSAL_ACF,RS5 ; Address of configuration control block 
56 1405 D OD 01 ACFSL_BEVNAME (R5) ,R6 ; Get address of current device 
86 9A 11 §¢ cree (R6)+ ; Get count and addr. 
00002614"EF 66 ¢ 29 0214 0 R7 (Rb) ,BOOSGT_SAVE_DEVNAME ; Compare to previous string 
| 9 12 OeIc B04 50$ ; Branch if new device 
| O21E 806 SFAO_S CTRSTR=CTRSTR_AUTOLOG_UNIT ,- ; Format Unit Number 
| O21E 807 OUTBUF =OUTBUF ,- 
8 1E aoe OUTLEN=OUTLEN_UNIT ,= 
| 1€ 809 P1=ACF$W_CUNIT(RS) 
03 50 34 023A a9 BLBS RO,40$ ; Branch if OK 
0081 1 8578 si BRW 106s ; Branch if error 
2610'CF 260C CF CO 0240 B18 40$: ADDL2 W*OUTLEN_UNIT,W*OUTLEN ; Add to total length 
262C ‘CF 260C "CF CO 0247 814 ADDL W*OUTLEN_UNIT,W*OUTBUF +4; Add to descriptor 
2628' CF 260C'CF A2 0 rH 815 SUBW W*OUTLEN_UNIT,W*OUTBUF ; Subtract from Length 
6A 11 BS28 a1$ BRB 100$ ; Return with success 
2610°CF DS 0257 818 50S: TSTL W“OUTLEN : Is this a first call to this routine? 
a osee th BEQL 70$ ; Branch if yes 
262C°CF 2630°CF DE 0250 821 MOVAL W*OUTBUF _STR,W*OUTBUF+4 ; reset descriptor 
OOOO'CF 2610°CF BO 0264 822 MOVW W*OUTLEN,W*RIOSGW_OUTLEN ; Length of string 
OOCO'CF 28 0268 823 MOVC3) W*RIO$GW_OUTLEN,=- 
2630°CF O26F 824 W*OUTBUF-STR,=- 
0000" CF Oere HH W*RIOSAB_BUFFER ; Move text into global buffer 
OO0000000"EF 16 0275 827 JSB RIOSOUTPUT_LINE 
4350 €9 oSoe +43 BLBC RO,100$ ; Branch on error 
2628°CF 0064 8F B80 O27E 830 79S: MOVW #100 ,W*OUTBUF ; Set full buffer Length 
00002614°EF 66 57 28 0285 831 MOVC3 R7,(R6),BOOSGT_SAVE_DEVNAME ; Save new devname 
55 OG00248C°EF 9E 028d S36 MOVAB BOOSAL_ACF, ; Reset RS 
0294 83 SFAO_S CTRSTR=CTRSTR_AUTOLOG,- ; Format device name 
0294 834 OUTBUF =OUTBUF ,- 
0294 835 OUTLEN=OUTLEN,=- 
0294 836 P1=ACFSL_DEVNAME (RS) ,- 
0294 837 P2=ACF$W_CUNIT(RS) : 
262C'CF 2610°CF CO 0283 838 ADDL2 W*OUTLEN,W*OUTBUF +4 ; Add to descriptor 
2628'°CF 2610°CF A2 O2BA 839 SUBW2 = W*OUTLEN, W*OUTBUF ; Subtract from Length 
bse} ano ; Return with FAO status 
05 02C1 41 100$: RSB 
02C2 842 


poco 
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SGNSGET_DEVICE = Locate device database 14-SEP-1984 16:09:11 ([BOOTS.SRCISYSGEN.MAR; 3 (4) 
‘ te -SBTTL SGNSGET_DEVICE = Locate device database 
C rk : 
C 47 ; Inputs: 
02C 48 ; 4(SP) = Address of Device name in ascic format 
02C rH 3 8(SP) = Unit number 
02C 50 ; 
OeCc 51 ; Outputs: ; 
02C 26 : ry! of these are 0 if the data block doesn't exist) 
02c 53 ; ACFSGL_DDB - Address of DDB 
02c 854 ; ACF$GL_UCB = Address of UCB 
ost $23 : ACFS$GL_IDB = Address of IDB 
C 56 ; ACFSGL_CRB = Address of CRB 
02Cc 857 ; ACFSGL_SB_ = Address of SB 
02Cc 858 ; ACFSGL_LASTDDB - If ACFSGL_DDB is non-zero, then equal to that, 
Oece 859 ; otherwise, last DDB in DEVLIST 
02C 860 ; RO = 0 - error 
pets 861 ; = 1 = success 
02Cc bbe 3 
O2C2 863 ; Must be called at IPL=0 and KERNEL mode 
O2C2 864 ; 
O2C2 865 -ENABL LSB 
O2C2 866 j : 
ogee tf SGNSGET_DEVICE:: ; Entry with IODB MUTEX & raised IPL 
007C 8F a3c2 i PUSHR #°M<R2,R3,R4,R5,R6> ; ADDS 20 to offset to input 
O00000000'GF DO O2C6 871 MOVL G*CTLSGL_PCB,R4 ; PICK UP PCB POINTER 
32.—S «10 Oscr are BSBB 10$ ; Call real routine 
007C 8F BA O2CF 874 POPR #*M<R2,R3,R4,R5,RO> ; restore regs 
05 Bsp2 154 RSB 3; Return 
ospe 1h SGNSGET_DEVICE_LOCK_I0DB: ; Entry without IODB MUTEX and IPL 0 
007C 8F 6B O58 679 PUSHR #*M<R2,R3,R4,R5,R6> 3; ADDS 20 to offset to input 
00000000 * GF DO 0208 # 881 MOVL G*CTLS$GL_PCB,R4 ;PICK UP PCB POINTER 
00000000 ' GF 16 O2DF HY JSB G*SCHSIOCOCKR ;GET THE IODB MUTEX FOR READ & RAISE IPL 
1A 10 O2ES5 88 BSBB 10$ 3 
50 DD O2E7 884 PUSHL RO ;SAVE RETURN STATUS 
00000000 * GF DO O2E9 HH MOVL G“CTLSGL_PCB,R4 sPICK UP PCB POINTER 
00000000'GF 16 O2F0 86 JSB G*SCHSIOONLOCK RELEASE THE IODB MUTEX 
8 Fg +H SETIPL #0 sLOWER IPL 
50 B8EDO O2F9 889 POPL RO sRESTORE RETURN STATUS FROM LOCAL ROUTINE 
007C 8F BA ogi 90 POPR #*M<R2,R3,R4,R5,R6> 
5 0 si 4 RSB 
400°CF 04 0301 38 10$: CLRL W*ACFSGL_DDB ; INIT TO ZERO 
404'CF D4 0305 94 CLRL W*ACFSGL_UCB s INIT TO ZERO 
408'CF D4 0309 95 CLRL W*ACFSGL_1DB s INIT TO ZERO 
4OC'CF D4 0300 96 LRL W*ACFSGL_CRB s INIT TO ZERO 
418°CF D4 0313 4 CLRL W*ACFSGL_SB s INIT TO ZERO 
0315 99 SAVIPL -(SP) ;SAVE THE CURRENT IPL 
56 20 AE pO 0318 900 VL 32(SP),R6 sGET ADDR OF DEVICE NAME 
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“cone = SYSGEN UTILITIES FOR CONFIGURE PROCESS 13-$60-1986 23: 
_ VO4~ SGNSGET_DEVICE = Locate device database 14-SEP-1984 16: 
5 A 1¢ 01 MOVZBL (g6)e RS 
FF 53 3 p 1F $03 MOVO 7 (§P) 
51 — 00 é 30 MOVL 3 *R1 
| 00000000°GF 16 904 JSB G* fOCSSEARCHALL 
8E 7C B 905 CLROQ (SP)¢ 
| D 906 SETIPL (SP)+ 
2418'CF 53 09 0330 90 MOVL R3,W*ACFSGL_SB 
04 12 03 3 908 BNEQ ©. 208 
50 Ds 0 909 CLRL RO 
| SE 11 0 39 310 BRB 70$ 
0B 50 =o«EB 0338 918 208: BLBS RO,25$ 
0908 8F 50° 861 f 91 CMPW =s_- RO, #SS$_NOSUCHDEV 
36 12 0343 «914 BNEQ 60% 
51 D5 0345 915 TSTL R1 
32 12 0347 916 BNEQ 60$ 
00002400'EF 52 DO 0349 917 25$: MOVL R2,L“*ACFSGL_DDB 
54 04 A2 DO 0350 918 MOVL DDBSL_UCB(R2) ,R4 
25 13 0354 919 BEQL 60$ 
51 24606 D0 0356 920 MOVL UCBSL CRBCRG) RT 
0000240C°EF 51 DO O35A 921 MOVL R1,L“ACFSGL 
2408'CF 2C Al »d0 bee! 356 MOVL CRBSL_INT TOSUECSL. IDB(R1), 
54 AG «6020 AE B1 SCO0367 = «924-308 CMPW 32(SP) ,UCBSW_UNIT(R4) 
08 13 036C 925 BEQL 508 
54 30 A4 DO O36E 926 40S: MOVL UCBSL_LINK(R4) ,R4 
F3 12 0372 927 BNEQ 30$ 
05 «(11 0374 928 BRB 60$ 
2404°CF 54 DO 0376 389 50S: MOVL R4,W°ACFSGL_UCB 
00002410°EF 52 DO 0378 931 60$: MOVL R2,ACFS$GL_LASTDD 
50 Q0000000'GF DE 0382 93¢ MOVAL  G*SCSS$GA  TOCALSB. RO 
50 53 D1 0389 93 CMPL R3,RO 
08 13 038C 934 BEQL 3 
18 As) «67D «(038E)0=— 935 mova SB$B_SYSTEMID(R3) ,~ 
0000244C "EF 0391 936 L“BOO$GQ_CONSYSID 
0396 «=. 937 
50 01 dO 0396 938 658: MOVL #1,R0 
05 0399 939 70S: RSB 
039A 940 
039A 941 -DSABL LSB 
039A 942 


eee nee ee 


§f o V04-00 
SYSGEN.MAR; 3 


* - FOUND DEVI 


UNT 
WE GOT BACK A UCB ADDRESS 
oN-ZERG IS LISTHEAD = NO DDB 


SS_OF DDB 
"ot een OF FIRST UCB 
NO UC ¥ A. XIT WITH OTHER FIELDS 
‘GET ADDR OF CRB 


: SAVE 
~WAACFSGL_ IDB ;GET ADDR OF IDB 
1S UCB ALREADY LOADED? 

If IT IS 


BRANCH 
:GET ADDR OF NEXT UCB 


7BR IF THERE IS ONE 
sEXIT WITH UCB = 0 


sLAST DDB IN LIST AS SEARCHED 


:GET ADDRESS OF . SYSTEM BLOCK 
iI B LOCAL 


THIS S 
:YES, LEAVE NOW 


;NO, SET IN THE SYSTEM ID 
: SUCCESS 


P 0 
i, 


CE 
1. PUNT WAS SONIT NOT FOUND** 


F OUND 


ZERO 
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| CONF GUTL = SYSGEN UTILITIES FOR CONFIGURE PROCESS 15-SEP-1984 68:39 Yanve: fac ro V04-00 Page 21 
/ V04-002 Reset routines BOOSRESETLIST and BOOSCON 14-SEP-1984 BOOTS SRCI SYSGEN.MAR; 3 (4) 
3A ae -SBTTL Reset routines BOOSRESETLIST and BOOSCONRESET and BOOSMSCP_RESET 
| gh 946 BOOSCONRESET = Reset values for connect command 
9A ace 
0000 B88 rH -PSECT PAGED_CODE rd,nowrt,exe,long 
0000 $8 83) «Entry BOOSCONRESET, “M<> :; Null entry mask 
OOGO245C*EF  QOOOO200°EF 9E 000 32 MOVAB L*“BOOSAB_PRMBUF ,BOOSGL -NEXTSTR ; Reset for string allocation 
0002428 'EF o1 CE 0000 954 MNEGL #1,8008CC. REG ; Null control register 
000024 C’eF 1 CE 0014 £955 MNEGL 1,BO0$GL_CONAUNIT ; Null adapter unit 
00002454'°EF 01 cE bo e8 956 MNEGL 1,B00$GL_CON ; Null vector 
0002438°EF 01 DO 00 957 MOVL 1,B00$GL_CONNUMV 3; Default number of vectors 
00002424°EF 02 CE 0029 958 MNEGL #2,BOO$GL~ mee 3: Invalidate adapter TR value 
00002440'EF D4 0030 959 CLRL BOOSGL_ ; Clear device name pointer 
000024644'EF D4 0036 960 CLRL BOOSGL_ RV ; and driver name pointer 
000024648'EF D4 O03C 961 CLRL BOOSGL_CONUNITS ; and maximum units 
st et eH 7C iro. 96 CLRQ BOO$GQ_CONSYSID 3 and system i 
4184 458°EF D4 4 96 CLRL BOO$GL_CONFLAGS 3; and flags ; 
00002430°EF 01 00 4E = 964 MOVL #1,L°B60 ONNUMU : Set number of units to 1 
QOOOO241C°EF D4 1.35 965 CLRL BOOSGL_COMBD_VECTOR OFFSET: Set vector offset from combo vectors to 
00002420'EF D& O05B 966 CLRL BOOSGL-COMBO_CSR_OFFSET ; Set CSR offset from combo CSR to 0 
04 0061 967 RET 3; Return 
0062 968; , : 
p0os 34 3 BOOSRESETLIST - Reset select list values 
0000 Oper 4a -Entry BOOSRESETLIST, *M<> : Null entry mask 
00002460°EF D4& 0064 97 CLRL BOOSGL_SELECT ; Zap select List pointer 
OOO0245C"EF  QO000200°EF 9E O06A 974 MOVAB BOOSAB_PRMBUF ,BOOSGL _NEXTSTR ; Set next string address 
00002614 'EF D4 0075 975 CLRL BOOSGT~ SAVE _DEV NAME ~ 3 Clear autolog strin 
00002610°EF D4 OO7B 976 CLRL OUTLEN™ : sloer dress output size 
0000262C"EF QO0002630°EF DE 0081 £977 MOVAL OUTBUF_STR,OUTBUF +4 3; Set adérese n descriptor of block 
0002497'EF 94 008C 978 CLRB BOOSAL— ACF +ACF$B AFLAG ote ACF flags 
00002430'EF 01 dO 0092 979 MOVL #1,L°BO0$GL_CONNOMU : Set number of units to 1 
04 0099 980 RET : and return 
009A 981 
009A 982 ; sd SA 
834 oar ; BOOSMSCP_RESET - Reset the MSCP server initialization argument List 
003C 48, oF -Entry BOOSMSCP_RESET, “M<R2,R3,R4,R5> ; Entry mask 
FFSF CF 00 FB OO09C 98 CALLS OOSCONRESET ; Reset the connect command globals 
50 0084 BF 3C OOAl 988 MOVZWL 38 DEVOFFLINE, RO : Assume error 
00000000'GF D5 O0A6 989 TSTL G*SCS$G 3 SCS loaded? 
13 QOOAC 990 BEQL $ : If eql no, error 
50 02¢4 8F 3C Opas 991 MOVZWL #SS$ DEVACTIVE.RO ; Assume error 
03 FO 008: 99 INSV #2,80,#3,R0 ; Set E class error status 
00000000'GF 05 0088 99 TSTL G*SCS$GL/MSCP ; If neq already loaded 
A 12 008 994 BNEQ 10$ Exit with error 
00002444'°GF O00025EC*EF of 00C 995 MOVA MSCP_NAME ,G*BOOSGL CONDRV; sset pointer to MSCP server name 
28 O0CB 99 MOVC #MSCP_ARG_LIST_SIZE,- ue. default argument list for 
000025BC * GF seanas yell OCD 99 MSCP_ARG “cist, 6*B00$6L babe fARG MSCP server init routine 
0 01 400 00D7 238 MOVL #1,R0 : Sét success 
04 99 10$: RET : and return 


ODA 
©9DB 1000 
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coy TL = SYSGEN UTILITIES FOR CONFIGURE PROCESS 15-SEP-19 3:4 
rad BOOSCON 14-SEP- 1984 Te 08:1 


Reset routines BOOSRESETLIST and 


:$6 VAX/VMS Macro ¥04-00 Page 22 
[BOOTS SRCISTSCEN.MAR: 3 th 


Entry mask 


Get longword offset 
Load argument value 


Set success 
and return 


Entry mask 


Get pointer to next available — space 
Is selection pointer already set 
Yes, continue to add entry 


; Else set pointer to first select entry 
; Get string length 


count for string 


ark end of List 
Save next string address 
Set success status 


| 008 1001 
O08 1998 : BOOSMSCP_ARG = Load MSCP arguments 
| 0000 9008 1904 “Entry BOOSMSCP_ARG, “M<> P 
“He BEN i | eh 
Py 
000025B8¢ 'GF40 0&4 1008 G*BOOSGL_LOAD_ARGS[RO] : 
| 50 01 DO OOEA 1009 move #IcRO éstno3 ; 
04 OOED 1010 RET : 
OOEE 1011 
Sore 1018 
Ook 101% ; BOOSMAKLIST - Make a select List entry 
007¢ OEE 1016 “Entry BOOSMAKLIST, “M<R2,R3,R4,R5,R6> ; 
56  0000245c" DO OOFO 1018 MOVL L“BOOSGL_NEXTSTR,R6 ; 
hh RS Be TBS, gach foplosetcsebetr 
OOFF 1021 MOVL § R6,L*BOOSGL_SELECT ; 
oa be 0106 1968 10$: nov TPABL 10 TOKENTNT(AP),RO ; get 
66 14 BC 28 10D 1024 MOVs RO aTPASL_TOKENPTR(AP), che)"; Copy string body 
0000245¢ EF DO 0114 1026 MOVL  §R3,L*BOOSGL_NEXTSTR : 
50 DO 011B 1027 MOVL  #1.RO : 
04 O11E 1028 RET : 


j 

EF 
00002460°EF 05 
07 12 
00002460°EF 56 00 

50 AC 

50 

50 

63 

53 

01 


mG 
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| CONF IGUTL - SYSGEN UTILITIES FOR CONFIGURE PROCESS 177 360- 1386 3:4 36 mes Macro v04-00 Page 
‘Nee, BOOSCONADP = Set connect adapter number 14-SEP-1984 16:09:1 BOOTS. SRCIJSYSGEN.MAR; 3 
Vit 10 9 -SBTTL BOOSCONADP = Set connect adapter number 
| 0009 11F 1 : .Entry BOOSCONADP, 
00002424 'EF 1C AC D 121 10 MOVL ASL MNUMBER(AP) , L “Boost _ CONADP ; Set adapter number 
| 04 : : See RET sand return 
0000 012A 1036 .Entr a iam “M<> ; Connect with null adapter 
00002424"EF 01 CE 61 g 1939 / MNEGL #1,L“BOOSGL_CONADP ; Clear adapter number 4 
| 04 4 ? 1338 RET 3 and return 
0000 0134 1920 -Entry gaan eb AP onthe ; Offset from start of combo vectors 
1C AC DO 0136 1361 MOVL TPASL NUMBER Set offset value 
0000241C EF 139 1 4¢ L*BOOSGL_ COMBO. PYECTOR oF FSET 
04 4 ¢ + ok $ 18 return 
0000 O13F 1045 .Entry pocecouc see rset mae Be ; Offset from start of combo CSRs 
1C AC DO 0141 1046 TPASL_NUMBER Set offset value 
00002420'EF 0144 1047 L*BOOSGL "COMBO. tér OFFSET 
04 0149 1048 RET 3; and return 
014A 1049 
0000 0144 1050 .Entry BOOSCONCREG, “M<> trol reaister address : 
00002428"EF 1C AC OD 00 014C 1051 EXTZV #0,#13, TPASL NUMBER (AP), i-B00seL_ CONCREG; Set control register 
04 B189 1926 RET 3: and return 
0000 0157 1054 .Entry BOOSCONCVEC, “*M<> Set controller vector 
1C AC FFFFFEO3 8F CB 0159 1055 BICL3 P°XEFFFFEOS, TPASL _NUMBER{AP) , * SBOOSeL _CONVECT ; Set vector offset 
00002434'EF 0161 
04 0166 1056 RET 3; and return 
0167 1057 
0000 0167 1058 .Entry egg “M<> umber of vectors 
00002438"EF 1C AC DO 0169 1059 TPASL_NUMBER(AP) , L*soosct_ CONNUMY: Set number of vectors 
04 piet 1969 ;7and return 
0000 0172 1peg - -Entry povecoumss tT. “M<> Adapter unit number 
0000243C ‘EF 1C AC DO 0174 106 TPASL _NUMBERCAP) , L*Boosci _CONAUNIT; Set adapter unit number 
04 HAS H+ ¢3 sand return 
007C p17 1966 Entry BOOSCONDRVNAM, “M<R2,R3,R4,R5,R6> ; Entry mask (R2-R6) 
56 QO000245C°EF DO O17F 1068 MOVL L“BOOSGL_NEXTSTR,R6 ; Address of next string storage 
00002444 'EF 56 DO 0186 1069 MOVL Rg BO08GE CONDRV 3 Save entater to driver name 
86 10 AC 90 018D 1070 MOVB TPASL_TOKENCNT (AP) , (R6) + Set count for string 
OO0O0245C°EF 56 10 AC C1 Q191 1071 ADOL TPASL_TOKENCNT (AP), *R6,BOOSGL EXTSTR ; neck string allocated 
66 14 BC 10 AC 2 HH 1976 MOVC yeas TOKENCNT (AP), /@TPASL STORENPTRUAPS , (R6 Copy string 
01 OD 1A0 107 MOVL : “and return Chet 
mS i ee . 
OOF C aia 1976 -Entry BOOSDEVNAME, “M<R2,R3,R4,R5,R6,R7> ; Device name/unit 
56 O000245C°EF DO O1A6 1078 MOVL S00S6L NEXTSTR,R6 ; Get pointer to next available string 
54 14 AC DO OAD 1079 MOVL TPASL ~TOKENPTR(AP) , R4 : Get pointer to ptr ing 
3 10 aC DO 0181 1080 MOVL TPASL ~TOKENCNT (AP) .R3 : And number of characters 
enone ses" F 4 0185 193) CLRL FULL_RAME_PTR ; Initialize full device name 
7 6 € 0188 1 36 MOVAB (REDE, 3; Save pointer 7 
64 53 4 3A 186 108 LOCC #°A/$7,R3, (RO) ; Find any possible ‘S$ 
3 13 O1C2 1084 BEQL 8% : None, just continue 
00002588 EF DO 01C4 1085 MOVL R7,FULL_NAME_PTR ; Store pointer 
! 
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| Come Route - SYSGEN UTILITIES FOR CONFIGURE PROCESS 17 3Ee= 1388 $346: 36 yaneves Recce v04-00 Page 24 
| VO~ BOOSCONADP = Set connect adapter number 14-SEP-1984 16:09:11 BOOTS. SRCISYSGEN.MAR; 3 (4) 
55 33 50 cs 178 1 3 SUBL RO,R3,R5 : Number of characters in node 
67 5 01 1 ice «(1 ADDB #1,R5,(R7) : Set in size (incl ‘’$*’) 
BB 103 1 8 PUSHR #*M<RO_R ; Save registers 
66 $4 105 10 MOVC3 RB. (ROS, (RO) ; Copy full string 
6 DO 0109 44 MOVL 2R6 ; Save ending address 
8 BA O1DC 1091 POPR #*M<RO,R1> ; Restore registers 
53 650 7. £3 105 1038 SUBL #1,R0,R3 ; Number of characters left 
54 51 «3201S ssC1—s«*O1E2 «109 ADDL3 = #1,R1,R4 ; Pointer to string 
55 re: 9E 1E8 1094 8$ MOVAB (R6)+,R5 3; Save pointer to count byte 
6 94 Rte 1095 CLRB (R : Initialize count to zero 
S52 D4)SCOO1EB 1998 CLRL 2 : Initialize unit accumulator 
0 8 9A BiED 84 10$ MOVZBL (R4)+ m0 ; Get a character from device name 
0 50 91 1F9 1098 CMPB Ss RO, #*A/0/ ; And check for a digit 
05 iF O1F3 1099 BLSSU § : Branch if not 
39 50 91 OFS 1100 CMPB RO, #*A/9/ ; Final check for digit 
OF 18 O1FB 1101 BLEQU 40 : Yes itis | 
86 50 90 OFA 1196 208: MOVB RO, (R6)+ ; Part of device name 
65 96 OI1FD 110 INCB (R5) 3; Increase count 
67 96 OFF 1104 INCB (R7) : Including nodename 
E9 53 F5 0201 1105 SOBGTR R3,10$ 3; Continue 
16 11 0204 1106 50$ ; 
50 84 9A 0206 1107 30S: MOVZBL (R4)+,R0 ; Get another digit 
50 30 C2 0209 1108 40$:  SUBL  #*A/0/,RO ; Get value an ee 
52 OA C& O20C 1109 MULL #10,R2 : Scale accumulator before adding digit 
2F 619 O20F 1110 BLSS 6 ; Error 
50 09 01 §s1} 1111 CMPL #9,R0 3; Check for numeric 
gh 19 0214 ite BLSS 608 : Error if not 
52. 50 «=6CO «20216 =111 ADDL RO,R2 ; And add new digit : 
EA 535 FS 0219 1114 SOBGTR R3,30$ ; Continue for entire unit number 
OD00245C°EF 56 DO O21f 1115 50S: MOVL R6,BOO$SGL_NEXTSTR ; Save updated string pointer 
0000242C EF 52 DO 0223 1116 MOVL R2,BOO$GL_CONCUNIT 3; Set unit number ? 
QO0024SC*EF 52 00 OSes 1117 MOVL R2,BOO$SGL_CONAUNIT ; Assume same for adapter unit 
000024640°EF 55 DO 0231 1118 MOVL R5 ,BOOSGL_CONDEV ; Save device name pointer 
65 95 0238 1119 TSTB (R5) : Must not be null device name 
04 13 O23A 1120 BEQL 60$ : Error if so 
50 01 dO O23C 1121 MOVL #1,R0 3; Return success 
04 O023F 1166 RET 3: and return 
50 D4 0240 1123 60S: CLRL RO : Return error status 
04 a343 1158 RET : 
0000 054 1126 .Entry BOOSCONUNITS, “M<> ; Maximun units to be connected 
00002448'EF 1C AC DO 0245 \ist MOVL TPASL_NUMBER(AP) ,L“BOOSGL_CONUNITS ; Set maximum units 
04 O3t 1% 3 : and return 
0000 6 4— 1130 .Entry BOOSCONSYSID LOW, “M<> 3; System ID 
0000244C ‘EF 1C AC dO OS 22 1131 MOVL TPASC_NUMBER(AP), - 
0 25 11 ; L*BOO$GQ_CONSYSID ; Set System ID (low Longword) 
04 28 ez RET 3: and return 
: 0000 0259 1135 .Entry BOOSCONSYSID HIGH, “M<> ; System ID 
00002450°EF IC AC DO O¢5B 1136 MOVL TPASC_NUMBER(AP), - 
63 11 L“BOOSGQ_CONSYSID+4 ; Set System ID (high lLongword) 
04 0 o7 1138 RET : and return 
0000 0 a 1329 Entry BOOSCONSOLE, “M<> : Connect console block stor. device 
00002424'EF 01 CE 0266 1142 MNEGL #1,L“°BOOSGL_CONADP ; No adapter 
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SYSGEN UTILIT 5-SEP-1 75 AX/VMS Bes ro V04-00 Page 25 
OOSCONADP = Set connect adapter number 14-SEP-19 3B %: $8: § Yeoors: sRCS SYSGEN.MAR; 3 ° (4) 
000243C ‘EF 1 1) D 1143 MOVL oL“BOOSGL_CONAUNIT ; Set adapter unit = 1 (not used) 
| 8 er 05s 8 b0 $? 1144 MOVL an *L* L-BoosGL kporwa j Set unit = 1 
00002440° 0000 ed 3 3 7B 1145 MOVAB ton NSNAME ,C*BOOSGL_CONDEV ; Set device name pointer 
Fo02. 5 ‘ ro © 6 1198 MOVL og L of tt L_CONNUMV ; Set 2 vectors 
walter BS SR IK GE SIMRO GEmERnc gf Rycotal caster 
BO00s468: FF 2 eS 9A 1108 MOVL #2: "B08 $GL~CONUNITS : Set max units to 2 (OPAO is Ist unit) 
0000 000'EF 16 O2A1 1150 JSB 1OGEN CONSOLE : Do cpu dependent stuff 
oe RBS oo ah 
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| CONF I1GUTL = SYSGEN UTILITIES FOR CONFIGURE PROCESS 15-SEP-1984 23:46:56 VAX/VMS M 4- 
‘Vourdoe BOOSCONNECT = Connnect specified device 14-SEP-1984 16:09:11 BOOTS. SRC SYSCEN.RAR;3 saat 


| 
. He ; -SBTTL BOOSCONNECT = Connnect specified device and load driver 
AB 1156 ; BOOSCONNECT = Allows a single device to be introduced, appropriate data 
AB 11 $ 5 structures allocated and initialized, the iver loaded if 
| . 1128 : required and the controller and device initialized. 
| OFFC AB 1160 ‘Entry BOOSCONNECT, “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> : 
FD50" 30 AD 116 BSBW BOOSLOCK_GEN ; Lock SYSGEN datab 
| #20 «ES 0580 1188 BiBC RO. 708 ierce.«ait 
| o5B8 1168 
| 0 ; 1198 ; Value of BOOSGL_CONADP 
02B3 1168 : 0 or greater => /ADADPTcR=n specified 
0983 1169 : ae => /NOADAPTER specified 
0283 1170 ; -2 => not specified 
ae 
eeeeteadh v4 FA ose3 1178 5$: 434" “BOOSGL _CONADP 3 wae an peeoter been specified? 
: so, or 
00002424'EF FFFFFFFF 8F o ogee 1192 beer #-1,L*BOOSGL_CONADP 3 Nutt adapter? 
: Branc es 
00002424 'EF FFFFFFFE 8F D1 Bsce 1177 CMPL #-2,L*BOOSGL_CONADP ; None ssecitied in CONNECT? 
13 0203 1178 BEQL 7$ : Figure it out from the database 
50 O07C80D2 8F DO 02D5 1179 MOVL #SYSG$_NOADAPTER,RO 3; Set no adapter specified error 
45 11 OSpE 1iey BRB 60$ 3 exit 
O2DE 1182 7$ SCMKRNL_S W*CONN_ADAP ; Get adapter number from 1/0 datab 
35.50 £9 OoFB 1188 BLBC  ~RO.608 S dale with error Ppa 
a. ae ogee 1188 BRB : Dispatch now on adapter type 
O56 1186 108: SCMKRNL_S W*CONNLADP g chenge mode to see data base 
OD 11 pero at BRB 30$ 3; Continue 
O2FF 1189 208: SCMKRNL_S W* CONNECT ; Change mode to see data bas 
OF 50 £9 O90C 1190 908; rec “Eo, 40s | pret encured eee 
00000000‘ EF oooo2set "et cS td 113) cALLG L “BOSAL _ACF , LOGENSLOADER A Loos database and driver 
: Branc success 
FCEO* 30 031d 1198 40$: BSBW PUTERROR ; Give error message 
50 01 400 635 1194 50$: MOVL #1,R0 ; Set success for parser 
50 D b3 1195 60$: PUSHL RO 3; Save error status 
FCD8* 30 1136 SBW BOOSUNLOCK_GEN 3; Unlock SYSGEN database 
03 50 8 8 8 119 BLBS : If no error, continue 
FCD2" B 1198 BSBW PUTERROR : Give error message 
50 sep 0 ' 1393 65$ 4 te RO ; Restore status 
FCCB" % 03 ¢ 1201 70$: BSBW PUTERROR : Give error message 
3 i 8 ; RET : 
0 6 1 04 ; Local routine to get ada ter number from 1/0 database 
6 1205 ; Must be called by a CMKRNL since SGNSGET_DEVICE must be called 
03 ? ! 09 : in Kernel mode. 
0000 338 08 “Entry CONN_ADAP, “M<> 
7E Q000242C'EF 3C¢ 5 1210 MOVZWL L*BOOSGL_CONCUNIT,-(SP) ; Unit number 
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onnnect specified device 14-SEP-1984 BOOTS sci SYSGEN.MAR; 3 (4) 


PUSHL L‘*B os L._CONDEV _ Device name 
wt DEVICE LOCK, 1008; eet device data base addresses 
; Pop off input parameters 


; Address “* see 

: Error if z 

3; Set no odapter specified error 
3; Branch to exit 


ws 
Oo 
ow 
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SeugseiE 


50 cocoon 


MOVL  SACFSGL_1DB,RO 


50 007C80D2 MOVL Sao ere ae 


PQ UIIIUIIE wt 


oooneses "EF 01 5$: MNEGL #1 ee td: CONADP ; Assume null adapter 
0 14 A0 MOVL : L_ADP(RO) ,RO ; Address of ADP block 

5 448 ; Null adapter if zero 
00002424"EF OC A MOVZWL ADPSu. TR(RO) ,L*BOOSGL_CON ADP ;Set adapter number 
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50 01 MOVL #1,R0 ; Set success 


10$: 
208: RET ; Return 
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rivet BOOSCONNECT = Connnect specified Are 14-SEP- oat} 3: $9; § teoors. sRCd SYSGEN.MAR; 3 - (4) 
4 1229 .ENABL LSB 
a ! 9: Connect with null adapter 
OFFC As : ¢ Entry CONNLADP, “M<R2,R3,R4,R5,R6,R7,RB,R9,R1I0,R11> 
50 ee D 3 1234 MOVL bFULL. NAME _PTR,RO : Try full device name 
ry § 1235 BNEQ : Good, continue 
50 Q0002440°EF 0D 4 1 $ MOVL L“BOOSGL_CONDEV,RO : Use normal name 
5A O000248C'EF  9E 88 1237 5$ MOVAB C“BOOSAL “ACF RIO ; Address ACF 
6A 04 0392 1238 CLRL ACF SL ADRPTERCR (R10) : Set no adapter 
04 AA D4 0394 1239 CLRL ACF $L_ CONF IGREG(R10) ; Set address of config reg 
08 AA B4 97 1240 CLRW ACFSW_AVECTOR(R10) : Set SCB offset for adapter 
01 + €1 9A 1241 BB ACFSU_CR oT - ; Br. if CRB built flag is clear 
4C 90002458; EF 3? 1 4¢ BOOS$GL~CONFLAGS,17$ 
6A O2454°EF DO O3A2 124 MOVL PO0SGL. “CONCRO-ACFSE -ADAPTER(R10) ; Store CRB address 
43. 11 Saag : rf: BRB ; Join common code 
OF FC tis ! rk eEntry CONNECT, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> $ 
5B sOFFFFFFFC'GF 9E O3AD 1248 MOVAB G*IOCSGL_ADPLIST-ADPSL -LINK 7 Get address of adapter List 
5B 04 AB DO 0384 1249 108: MOVL ADPSL_LIAK(R11),R11 F link onward through adapter List 
08 12 0388 1250 BNEQ 15$ : Beattoun if another adapter 
50 OO7C80BA 8F DN O3BA 1251 MOVL #SYSG$_INVADAP ,RO ; Set invalid adapter error 
04 bara : 26 RET 3; Return 
00002424'EF OC AB. BI ite 1$82 15$: CMPW ADPS$W_TR(R11),L“BOOSGL_CONADP 3 Is this the specified TR? 
€8 12 O3CA 1255 BNEQ 10$ 3; No, try another 
SA O000248C'°EF 9E O3CC 1256 MOVAB £ Pookay ACF R10 i get address of ACF 
6A 5B 00 0303 1257 MOVL R11 F$C_ADAPTER(R10) t address of ADP 
04 AA 6B D0 0306 1258 MOVL ADPSL SR RTR11) ,ACFSL Cont 1eREGe (R10) ; Set address of config reg 
1C AB Q0000000'GF C3 O3DA 1259 SUBL3 G*EXESGL_SCB, - 3 Calculate offset into SCB of 
O3E3 1260 ADP$L_AVECTOR(R11),RO i adapter's cena ras vectors. 
08 AA 50 BO O3E3 1261 MOVW RO,ACF$W_AVECTOR(R10) ; Store offset in ACF 
50 00002440°EF 00 Bees 1508 MOVL L*BOOSGL~ _CONDEV,RO ; Device name 
O3EE 1264 17$: é 
14 AA 00002440'EF 00 oeee 1692 MOVL BOOSGL_CONDEV,ACFSL_DEVNAME(R10); Set pointer to device name 
O3F6 1267 ; Now try to get driver name from DDB if it exists and load B00$GQ_CONSYSID 
bare 1598 3; if HSC device. 
7E Q000242C°EF 3C O3F6 1270 MOVZWL L“BOOSGL_CONCUNIT,-(SP) ; Unit number 
50 DD O3FD 1271 PUSHL RO 3; Device name 
000002D4 "EF 8 O3FF 1 % JSB SGNSGET_DEVICE_LOCK_10DB: 6 get Covice data base addresses 
5E 08 CcO 0405 127 ADDL2 4#8,SP 3 of input parameters 
, E8 0408 1274 BLBS RO, 208 3 okay 
50 007€9010 8F DO 04 1275 MOVL #SYSG$_NODEV,RO 3 Set error code = ‘Device not known’ 
04 be ! 4 RET 3; Leave 
05 =«€2 ae} 1278 20$: BBSS #ACFSV_GETDONE,- 
00 00002458'EF et ' 4 L“BOOSGL CONF LAGS, 21$ ; Notify LOADER that GET was done 
18 AA Soneaks6 “Et b0 re 1 Hi 21$: MOVL BOOSGL CONDRV,ACFSL_DRVNAME(R10); And driver name 
1 14 04 1 ¢ BGTR : Branch if driver specified 
51 00002400°5F 00 " ; ; 7 tty ACFSGL_DDB,R1 5 B08 eddrgss | 
18 AA 24 Al DE 42—E 1285 MOVAL DDBST_DRVNAME (R1) , ACF SL jeterestalds” ; _y er from DDB 


— 
i 


—_——--—_— 


| CONF IGUTL = SYSGEN UTILITIES FOR CONFIGURE PROCESS 15-SEP-19 :46:5 AX/VMS Macro V04-00 Page 29 
youeo2 BOOSCONNECT = Connnect eel se PRotess | 14-SEP- Pa 19be % 09; 3 Yeoors sre SYSGEN.MAR;3 ° (4) 
21. 11 r } § BRB 30$ ; Branch around name hackery 
56 opposes "ee D 4 1 8 25$ MOVL L b008 L_NEXTSTR,R6 i Get address of next free space 
$ 4 1 MOVL -ACFSL “DRVNAME (R10) : Set as driver name address 
$6 : : ci 1290 MOVB ; aad Sm : Set count for string 
66 52455649 sik 94 F D 044 1291 MOVQ a* DRIVE wit : Set driver suffir 
4 AA 00 aoe 1 3¢ MOVL ACFSL _DEVNAME (RI ),R1 +: Pointer to device name 
01 Al B60 126 ! 33 MOVW 1(R1)7(R6) 3; Form default driver name 
OA AA 0000 ta EF 9 456 1295 30$: MOVB BOOSGL_ CONAUNIT,ACFS$B_AUNIT(R10); Set adapter unit 
21 AA 00002430°EF 9 45E 1 36 MOVB L*BOOSGL_CONNUMU,ACFSB_ NUMUNIT CR (R10) 
466 129 orgy” number of units to configure 
OB AA 0024.28. EF 90 0466 1298 MOVB BOOSGL_CONFLAGS ,ACF $8 _ariagenl ) onset? flags 
0000241C "EF titiy 434°EF Al rh 1299 ADDW3 BOOSGL™CONVECT BOOSGL =COMBO. VECTOR_OFFSET,=-; 
10 AA 047 1300 Acr sy CV CVECTOR(R10) Set vector address 
50 O000241C°EF 08 02 EF 0478 1301 EXTZV #8, BOOSGL COMBO VECTOR OFFSET RO; Save vector offset in longwords 
if AA 50 90 0484 130¢ MOVB ROLACESB. COMBO_VECTOR_OFFSET(RIO); — 
0488 1304 ; Set up ACFSL_CONTRLREG = can either be UNIBUS CSR or address of C1 
att 1302 3 System id. 
0000244C EF DS 0488 1307 ‘ TSTL BOO$GQ_CONSYSID : See if SYSIDLOW was specified 
A 13 O48€ 1308 BEQL 40$ : Branch if not 
OC AA 0000244C'EF 9E 0490 1309 MOVAB ®B00$GQ_CONSYSID 
0498 1310 ACFSL “TONTRLREG(R10) 3: Set system id address 
— 8 985 ta BRB $68 3; Branc 
859 1318 | : Calculate system virtual address of UNIBUS CSR 
00002428 'EF e00010p0 or C1 gene 1312 ios: ADDL3 eye8 LORASE Ae 
Q4A7 1317 ACFS$L_CONTRLREG(R10) ; control register address 
OC AA 04 AA (CO O4A7 1318 ADDL ACFSL_CONFIGREG(R10), = 
Q4AC 1319 CFS$L_CONTRLREG(R10) ; Add adapter va bas 
eoonesco"er co bens 1330 ADDL BOOSEC COMBO COR OFFSET“; Add offset to eet “erus CSR address 
420'EF 4B4 13 MNEGB BOO$GC_COMBO_CSR OFFSET,-; Calculate offset back to CSR start 
— 3 AA " Ocak 1338 ACF$B_COMBO_CSR_OFFSET(R10); Save offset 
12 AA 0000242C°EF B80 048C 135? 50$: MOVW BOOSGL_CONCUNIT : 
0464 1326 ACE SW CUNIT(RIOS — 3; Set controller unit number 
1C AA 00002448'EF BO 04C4 13s? MOVW BOO$GC _CONUNITS ; 
1E AA 00002438"EF 90 bece 1399 Move ACFSW  RAXUNLTS(A10) a a ae 
A ’ 0404 1 $0 ACF$B_CNUMVEC (R10) ; Set count of vectors 
50 01 oD0 0404 1331 55$: MOVL #1,R0 3; Set success 
04 Reps ' 3 RET ; 
4D8 1332 -DSABL LSB 
1335 
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eeey" ans vine comsne ly aie at EAs 
Oco8 1338 -SBTTL BOOSLOAD - Load a driver or misc code if not already loaded 
bab 1340 | ; BOOSLOAD - Loads the driver or misc code if not already loaded. 
OF FC Rene 1303 ° ‘Entry BOOSLOAD, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
52 DS O4DA 1308 CLRL R2 ; Clear reload flag 
05 11 O4DC 1344 BRE LOADRV 3; And merge with common code 
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Voerooe BOOSRELOAD - Reload a specified driver 12-gEp-} 984 6:09:11 (BOOTS SRCISYSCEN.MAR; 3 . (4) 
ott) ! +8 ~SBTTL BOOSRELOAD - Reload a specified driver 
4DE 1348 ; BOOSRELOAD - Reloads the specified driver replacing any we hig copy 
4DE 1349 ; unless there are busy units requiring the driver that would 
Bebe : “9 3 be replaced. 
OFFC 943 ! 26 -Entry BOOSRELOAD, “M<R2,R3,R4,R5,R6,R7,RB,R9,RIO,RI1> ; 
52. 01 90 O4E0 1354 MOVB #ACFSM_RELOAD,R2 ; Set flag to force reload 
bee : 2? LOADRY: 
Q4E3 1357 ; The first block of the file will be read to determine if it is a driver or 
Ree ! 28 ; misc code by looking at the type field. 
00002444 'EF DD ee 1300 PUSHL BOO$GL_CONDRV :; File name string 
6E D6 O04E9 1361 INCL ; Get past the count 
7E Q00002444'"FF 9A 0468 1308 MOVZBL @BOO$SGL_CONDRV,-(SP) ; Length of file name 
~.6hUSe 8 berg 136 MOVL oR ; Address of desriptor for file name 
FBO8" 0 O4F 1364 BSBW BOOSE XEOPEN 3; Open the file (default SYSSSYSTEM: .EXE) 
5E 50 €9 O4F8 1365 BLBC RO,40$ ; Error 
SE 08 CO O4FB 1366 ADDL #8,SP ; Clean up stack 
56 O0002200°EF 9E O4FE 1367 MOVAB BOO$SAB_LOADBUF ,R6 ; Buffer for file read 
58 02 od0 0505 1368 MOVL #2,R8 3; First block after image header 
59 O01 pO 0508 1369 MOVL #1,R9 ; One page 
FAF2" 30 0508 1370 BSBW BOOSREADF ILE 
48 50 +4 OSOE 1371 BLBC RO,4 ; Error 
FAEC® 30 0511 1376 BSBW BOOSF ILCLOSE ; Close the currently open file 
42 50 €9 0514 137 BLBC P ; Error 
QO00220A°EF 91 0517 137% CMPB = BOOSAB_LOADBUF +SLV$B_TYPE,- 
62 8F 051D 1322 #DYNSC_LOADCODE ; Check for misc code 
3c 06.13) «OS1F «61376 BEQL LOADCOBE 
FADC' 30 0521 1377 BSBW BOOSLOCK_GEN ; Lock SYSGEN database 
32 50 E9 0524 1378 BLBC P : If lbc, didn't get lock 
5A QO000248C'EF 9E 0527 1379 MOVAB L*“BOOSAL_ACF,R10 ; Get base address for ACF block 
18 AA 00002444'EF 00 Bagt 1380 MOVL BOOSGL_CONDRV,ACFSL_DRVNAME (R10) : 
OB AA 52 90 0536 1381 MOVB R2,ACFSB_AFLAG(R10) ; Set flags for load or reload 
14 AA D4 053A 1382 CLRL_ ACF SL_DEQNAME (R10) ; No device name 
QO000000°EF 6A FA 053D 138 CALLG (R10), L“IOGENSLOADER ; Load requested driver 
03 50 8 0544 1384 BLBS R ; Continue if no error 
FAB6" 30 0547 1385 BSBW PUTERROR :; Give error message 
50 D OQO54A 1386 20S: PUSHL R ; Save status 
FABI1* 30 O54C 1387 BSBW BOOSUNLOCK_GEN 3 Unlock SYSGEN database 
03 50 5 OS4F 1388 BLBS ; If no error, continue 
FAAB’ 30 228 1 94 BSBwW PUTERROR ; Give error message 
50 8EDO 0555 1390 30$: POPL R ; Restore status 
gs 558 1391 RET 3 Exit 
FAA4* 30 0559 1338 408: BSBW PUTERROR ; Give error message 
| 04 055¢ 139 RET : Exit 
55D 1394; 
55D 1395 LOADCODE: 
00002444"EF DD O55D 1 38 PUSHL BOOSGL_CONDRV ; File name string 
6—€ D6 0563 139 INCL (SP) ; Get past the count 
7E 00002444'°FF 9A 0565 1398 MOVZBL @BOOSGL_CONDRV,-(SP) ; Length of file name 
ae 8 56C 1399 MOVL 7 ; Address of desriptor for file name 
ca 0 $f 1400 BSBW BOOSUF OOPEN : Open the file for user access (default SYS 
22 E9 05 ¢ 1401 BLBC RO,10$ ; Error 
| 5E 08 CO 0575 1402 ADDL #8,SP : Clean up stack 
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BOOSRELOAD - Reload a specified driver 14-SEP-1984 16:09:11 BOOTS. SRCJSYSGEN.MAR; 3 
soneree" 9F 0578 1403 Sf tg BOOSAB_LOADBUF ; Use code buffer for return address array ( 
1 DD OS7E 1404 PUSHL R1 3 Chan ( 
02 oD 058 re PUSHL a2 : Arg. eal ( 
50 SE odO 0582 14 § ( 
585 140 SCMERNL 3 "fouray ~ EXESLOAD_CODE,~ ( 
585 1408 LST = (RO) ( 
04 50 8 0594 1409 BLBS 5 ( 
FA66' 30 0597 1410 108:  BSBW a0 208 ( 
04 Q5S9A 1411 RET ( 
S238 1e}8 ( 
59B 1413 20$: SCMKRNL_S ROUTIN = LINK_CODE ( 
EA 50 f° BDAA 1414 BLBC “RO,10$ ( 
4 SAD 1415 ( 
OSAE 1416; ( 
OSAE 1417 LINK_CODE: ( 
001C OSAE 1418 «WORD “M<R2,R3 ( 
52. 00002200'GF DO 0580 1419 MOVL G°BOOSAB “TOADBUF R2 ; Address of loaded code ( 
4 DO 0587 1420 MOVL ; Save address of loaded code ( 
53 10 A&4 D0 OSBA 38! MOVL SC VSA SYSVECS(R4) ,R3 ; Get address of vectors in SYS.EXE ( 
00000000'GF 16 OSBE 14 ¢ JSB G*EXESLINK_VEC ; Connect vectors to loaded routines. ( 
10 50 €9 O5C4& 142 BLBC RO,10$ ; Leave on error ( 
5C Q00025BC'GF DE 05C7 \os¢ MOVAL 66008GL LOAD_ARGS,AP ; Argument List for initialization routine ( 
50 04 A46 DO OSCE 1425 MOVL SLVSL_INTTRINTR4), RO ; Possible initialization routine ( 
03 13 0502 1426 BEQL 10$ ; None, leave ( 
6044 16 0504 1427 JSB (RO)CR4) ; Call it ( 
04 O5D7 1428 10$: RET t 
0508 1429 
f 
f 
f 
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‘Voer00e BOOSGIVEHELP = Print Help information 14-SEP- =}382 6:0 39 Yeoors sre SYSGEN.MAR; 3 . 
5D 14 1 .SBTTL BOOSGIVEHELP = Print Help information 
3p 16 § : Print Help Information 
003¢ 308 14 5 [Entry BOOSGIVEHELP, “M<R2,R3,R4,R5> ; 
0009 900. GF 9F OSDA 14 5 PUSHAB GrLIBSGET. INPUT 3 Input routine 
4464 S'EF OF SEO 1438 PUSHAB HELP 7, ; Flags 
| SSO"EF OF O5SE6 1439 PUSHAB L“H HECP CE ILE ; Library 

8 AC BO OSEC 1440 MOVW sengl STRINIGCNT (AP), - 
60092578 ' EF OSEF 1441 ; Set Length 

oC, AC D0 pars 1666 MOVL TPASC, STRINGPTRCAP) , ” 

57C*EF F? 144 HELP_BESC+4 ; Set address 

7B°EF OF OSFC 1444 a HELP. DESC ; Input string 

D4 0602 1445 LRL Py : width 
GF 9F 0604 1446 PUSHAB GALIBSPUT OUTPUT ; Output routine 
06 FB gene ih CALLS #6,G*LBRSOUTPUT_HELP 3; Call help routine 
04 0611 1449 RET ; Return with status 
0612 1450 
0612 1451 -END 


00002 
000025 GF 
00000000" 

09000000 * GF 
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Symbol table 14-SEP-1984 16:09:11 (CBOOTS.SRCISYSGEN.MAR; 3 (4) 
$$T2 = 00000005 BOOSDEVNAME 000001A4 RG 6 
$CLi. = 0000 466 R 04 BOOSE XEOPEN eeereeee xX 6 
/$CLi.. = 00002480 R 04 BOOSF ILCLOSE ateereee =X 6 
| ACFSB_AFLAG = 00000008 BOO$SGB _FILELEN 9000 4FD RG 04 
ACFS$B_AUNIT = 444 BOOSGIVEHELP 00000508 RG 36 
ACF $B_CNUMVEC = 9000 it BOOSGL_CMDOPT aeeerere xX 
ACF$B_COMBO_CSR_OFFSET “ O0008 BOOSGL-COMBO_CSR_OFFSET 0000 420 RG 04 
ACF$B_COMBO-VECTOR_OFFSET = 0000001F BOOSGL-COMBO-VECTOR_OFFSET 000241C RG 04 
ACF $B_NUMUNTT = 00000021 BOO$GL-CONAD 000 ogs RG 04 
ACFSC"LENGTH = 00000028 BOO$GL- CONAUNIT 000243C RG 04 
ACFS$GC_CRB 0000240C RG 04 BOOSGL-CONCR 0002454 RG 04 
ACF$GL_DDB 9008 400 RG 4 BOOSGL-CONCREG 9006 48 RG 4 
ACFSGL_DPT 0002414 RG 4 BOO$GL-CONCUNIT 000242C RG 4 
ACFS$GL~1DB 00002408 RG 04 BOO$GL-CO 00002440 RG 04 
ACFSGL_LASTDDB 0000 410 RG 04 BOO$GL-CO 00002444 RG 04 
ACFSGL_SB 00002418 RG 04 BOOSGL_CONFLAGS 00002458 RG 04 
ACF ucB 00002404 RG 04 BOO$GL— CONNU 0000 430 RG 04 
ACFSL_ADAPTER = 00000000 OO$GL_CONNUMV 00002438 RG 04 
ACF SL_CONF IGREG = 00000004 BOOSGL_CONUN TS 00002448 RG 04 
ACFSL_CONTRLREG = 0000000C OO$GL-CONVE 00002434 RG 04 
ACF $L_DEVNAME = 00000014 BOOSGL_F ILEADOR 000024F9 RG 04 
ACF SL_DRVNAME = 00000018 BOO$GL-LOAD_ARGS 000025BC RG 04 
ACF SM_RELOAD = 00000001 BOOSGL_NEXTST 0000245C RG 04 
ACF $V_CRBBLT = 00000001 BOOSGL_PARINUSE OOOO gre RG 04 
ACF $V_GE TDONE = 00000005 BOOSGL_RETSAVE 000024C4 RG 04 
ACF $V_NOL = 00000003 BOOSGL_SELECT 00002460 RG 04 
ACF SW_AVECTOR = 00000008 BOO$GQ"CMDESC = 0000246C RG 04 
ACF $W_CUN = 00000012 BO0$GQ-CONSYSID 0000244C RG 04 
ACF S$W_CVECTOR = 00000010 BOO$SGQ"LIMITS 00002484 RG 04 
ACF SW_MAXUNITS = 0000001C BOO$GQ-RETADR 9000248¢ RG 04 
ADPSL_AVECTOR = 0000001C BOOSGT-ACTIVE 0000250A RG 04 
ADPSL_ = 00000000 BOO$GT~ CURRENT 00002502 RG 04 
ADPSL_LINK = 00000004 BOOSGT"CVNAME Q000024DE RG 04 
ADP$W"T = 0000000C BOOSGT_DDNAME 000024FO RG 04 
AUTOLOG 00000206 RG 05 BOOSGT"DEF AULT 00002511 RG 04 
BOO$SAB_LOADBUF 00002200 R 04 BOOSGT_DXNAME 000024E7 RG 04 
BOOSAB_ PATCH 00000000 RG 04 00$GT— 00002519 RG 04 
BOOSAB_ PRMBUF 00000200 RG 04 BOOSGT_OPNAME 000024DA RG 04 
BOOSAL_ACF 0000248C RG 04 BOO$GT"~ PROMPT 00002480 RG 04 
BOOSAL~ CLIBLK 00002464 RG 04 BOOSGT~SAVE_DEVNAME 00002614 R 04 
BOOSCONADP 0000011F RG 06 BOOSHICIM 00000000 RG 03 
BOOSCONAUNIT 00000172 RG 06 BOOSLOAD 00000408 RG 06 
BOOSCONCNUM 00000167 RG 06 BOOSLOCK_GEN eeereere 05 
BOOSCONCREG 000014A RG 06 BOOSLOLIA 90000000 RG 02 
BOOSCONC SROF FSET 000013F RG 6 BOOSMAKLIST OOOOOEE RG 06 
BOOSCONCVEC 00008137 RG 06 BOOSMSCP_ARG 000000DB RG 06 
CONDR 000017D RG 06 BOOSMSCP RESET 0000009A RG 06 
BOOSCONF IGALL 00000000 RG 05 BOOSREADF ILE eererene 06 
BOOSCONF | 8000 006F RG 5 BOOSRELOAD QO0004DE RG 06 
| CONNECT 00002AB RG 6 BOOSRESETLIST 00000062 RG 06 
BOOSCONNL ADP OOOO aA R 6 BOOSUF OOPEN eeeerere X 06 
BOOSCONRE SET 0000000 R 6 BOOSUNLOCK_GEN aeereees 05 
BOOSCONSOLE 0000 $% RG 6 BOOSUSEA T 0002700 RG 04 
BOOSCONSYSID_HIGH 000259 RG 6 BOOCMD$V_AUTOLOG = 0000 00¢ 
BOOSCONSYSID~LOW 00 f RG 6 BOOCMDSV"EXCLUDE = 0000000 
BOOSCONUNI TS 000243 RG 06 BOOCMD$V~SFLECT = 00000006 
BOOSCONVE COF FSET 0000134 RG 06 CLISB_ROQTYPE = 00000000 
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Eeubek cake ~ SYSGEN UTILITIES FOR CONFIGURE PROCESS 1a-SEp=198e 16:00:11 EBOOTS. SRCISYSGEN-MAR; 3 (4) 
694 R 4 
| CLISC_REQDESC = 1¢ OPERGETJPI . 
‘ELISE cETehp = BB38000 OPENS. eee 
CLISW"ROSIZE a 4444444 FAO 6AC R 4 
CONF IGADP 0 103 RG = OS OPERMSGFA ny . 04 
ad hae  B00000S0 X OPERMSGNAM 0002684 R 04 
CONNECT OO00SAR RG 96 OPERMSGPID 9002680 R 04 
CONNLADP 2009 79 RE OG OPERMSGTXT 90002600 R 04 
CONN ADAP 0000336 RG 06 OPERMSGVEC 0005688 R 04 
S 00009406 R04 OPERNAMDE SC 4 e38 a 2 
CRASL_INTD = 90000024 OUTBUF _STR 0008630 R 4 
CT TLSGC_ PCB erererer x 05 OUTL 1 000960C R 04 
CTRSTR-AUTOLOG 000025F1 R 04 QUTLEN UNI » SoeoseTS 
CTRSTR_AUTOLOG UNIT 00002600 R 04 DUTeRASR eeeeeees x 05 
DDB = 00000004 PU FER eeeeeeee Xx 05 
DDBST“DRVNAME = 00000024 nioscu- GUTLEN ee a ae 
pi ey cecceses x fe SAVE. DOT 00002584 R 04 
EXESGC DEFT LAGS tererere =X 05 SBSB_ ReSTEMID = 00000018 i 
EX ESGL “scB gereeeee x 06 SCHSTOL ew eeeeerer "| 05 
EXESL IRE “VEC eeerereer Xx 06 dere a’ SB ereneeee X05 
EXESLOAD CODE secoesas 6 5 seeeen-boene seneeeee X 06 
EXE SV ,NOKUTOCNF pocoses> i: ae tte ty teeeeeee X 06 
FACNARE 90002400 04 scSSGL MSC 000001D1 R05 

FACNANE? = doooooue SGNSGET_DEVICE 900002C2 RG 05 
© omnia = 0000000¢ SGNSGET~DEVICE_LOCK_10DB _ 90000204 R05 
FULL PTR 00002588 RG 04 SLVSA_STS cs = Boootoen 
HELP_DESC™ 00002578 R 04 a -INITRTN = 00000004 
HELP~FLAG 0002574 R 04 SS$_DEVACTIVE = booonse 
HLPSA_PROMPT = 00000001 SS$_DEVOFFL S Onto ee 

1DBSL ADP Anvr rede 33S -NOSUHDEV = 00000908 
IOCSADTOCONF 1G renters =X 05 i a th eeeeeeee GX 05 
IOCSAUTORE SET meee, mae Hyd. teeeeees GX 05 
IOCS$GL_ADPL! eoeecese x 05 hb 9s NL eeeeeene x 05 
IOCSSEARCHALL sane wre vSCs. CONF QUAL = 007C808A 

1OGENSC L geeeraene ¥ 06 $ ADAP a 007C80BA 
1OGENSLOADER = 9000319 © Sy eS -HOADAPTER = 007800 

et HELP = poooeees x 06 aves a : Sree 

CIBSGET_ INPUT “feeeeewe X06 TPASL “NUMBER = 9006001¢ 
CIBSPUTTOUTPUT erereeer KX 06 TPASL_PARA _ : Hast 4 
LomDeoDE. $00008s> RG TPASL-STRINGPTR = 9000000¢ 

LOADRV = 000004E3 R 06 TPASL CTOKENCHT = 90000016 

MG 9000258 Rod BSL_PR = 90000094 
MSCP_ARG_LIS Boonse85 © UCBSLALINK = 00000080 
MSCP~ARG- ist SIZE = 0000 9 Mitte = 00000054 
MSCP-NAME BO0025EC R = VATID PAR FILE 0002580 R 6 
NEXT TAP isa 0B2 R 05 VALID LDA L = 90000008 

OPCSM_ NM. CENTRL = 00000001 VECSL=1 

OPC$_Ra_Ros = 00000003 


‘Ria — Se 


G 
| CONF IGUTL : = SYSGEN UTILITIES FOR CONFIGURE SRotess 15- mi tats 1 $3:66:36 yax X/VMS Resce v04-00 Page 36 
Psect synopsis 14-SEP-1984 16:09:11 (CBOOTS.SRCJSYSGEN.MAR; 3 (4) 
tee meer ena reece see a $ 
| : Psect synopsis ! 
foeen mentee emoeaeora + 
| PSECT name Allocation PSECT No. Attributes 
- ABS 00000000 “( 0.) 00 ® 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$$000 00000000 on 8 ( ¢°} PIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
722 00000000 <( ) ( -) NOPIC USR CON REL LCL RD WRT NOVEC PAGE 
RNORFAGED_DATA 4 t434 4108) -) 046 ¢ 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC QUAD 
NONPAGED CODE 0 39A $f°? 05 ( 5.) NOPIC USR CON REL LCL RD NOWRT NOVEC LONG 
GED_C 00000612 ( 1554.) 06 ¢( 6.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
tm ee eee we mm owe erecesnecoececeoe + 
! ; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00: 00: 00. 51 
ponnene processing 110 es A SA 00:00: 202.09 
571 00:00:23.37 00:00:47.02 
Synbol table sort 0 00:00:03.60 00:00:07.09 
s2 276 00:00:05.53 00:00:09.68 
ee table output 27 00:00:00.20 00:00:00.26 
Psect synopsis output 2 00:00:00.04 00:00:00.07 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1017 00:00:33.58 00:01:06.72 


The working set Limit was 1950 pages. 

132448 bytes (259 pages) of virtual memory were used to buffer the intermediate code. 

ieere were 130 pages of symbol table space ot Located to hold 2263 non-local and 83 local symbols. 
1453 source Lines were read in Pass 1, "aoe ta 9 object records in Pass 2. 

43 pages of virtual memory were used to define 40 macros. 


Macro Library name Macros defined 
$255$DUA28 8: [BOOTS .08s3B00TS -MLB;1 1 
$52280u Ag MLB; 1 16 

Bitty SVSLIGISTARLET . MLB; 2 $9 

TOTALS (all Libraries) 7 


2358 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: CONF IGUTL/OBJ=OBJ$: CONF IGUTL MSRC$: CONF 1GSW/UPDATE=(ENHS: CONF GSW) +MSRC$: SYSGEN/UPDATE=(ENH$: SYSGEN) *EXECML$/LIB¢L IBS 
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